%I#17 2022年9月8日08:46:06
%S 2,3,5,7,13,23,37,53,7310310713121122726327733073373401,
%电话:431433463467521541547557763164366167370110131063,
%电话:1151115312011223132714231451145315671613162716631721012017
%N素数,其十进制表示是以8为基数的有效数字,并以此解释为素数。
%H Charles R Greathouse IV,<a href=“/A235394/b235394.txt”>n,a(n)表,n=1.-10000</a>
%e a(5)=13_10=质数(5),13_8=3+1*8=11_10=素数(4)。
%e a(8)=53_10=质数(16),53_8=3+5*8=43_10=素数(14)_Marius A.Burtea,2019年6月30日
%t选择[FromDigits@#&/@IntegerDigits[Prime@Range@270,8],PrimeQ]
%o(PARI)fixBase(n,oldBase,newBase)=我的(d=数字(n,旧Base),t=新Base-1);对于(i=1,#d),如果(d[i]>t,对于(j=i,#d,d[j]=t);断裂);从数字(d,newBase)
%o列表(lim)=我的(v=列表(),t);对于素数(p=2,fixBase(lim\1,10,8),如果(i素数(t=从数字(p,8),10)),listput(v,t));Vec(v)\\_Charles R Greathouse IV_,2016年11月7日
%o(岩浆)[n:n在PrimesUpTo(2100)|Max(Intseq(n,10))le 7和IsPrime(Seqint(Intseque(n),8))中)];//_Marius A.Burtea,2019年6月30日
%Y参见A031974、A089971、A089981、A090707、A09070%、A090710、A235395、A000040。
%K基础,简单,无
%O 1,1号机组
%A _Robert G.Wilson v_,2014年1月9日
|