A210704 Primes formed by initial digits of 3^(1/3) = A002581, i.e., of the form floor[3^(1/3)*10^k].
144224957030740838232163, 144224957030740838232163831078010958839186925349935057754641619454168759682999733
Offset: 1
Links
- C. Caldwell, G.L. Honaker (Eds.), 4957 (another Prime Pages' Curiosity).
Crossrefs
Programs
-
Mathematica
With[{cr3=RealDigits[CubeRoot[3],10,100][[1]]},Select[Table[FromDigits[Take[cr3,n]],{n,100}],PrimeQ]] (* Harvey P. Dale, Mar 30 2024 *)
-
PARI
(c=sqrtn(3,3),v=1/*set to 0 for indices instead of values*/)->for(k=0,precision(c),ispseudoprime(p=c\.1^k)&&print1([k,p][1+v]","))
Comments