OFFSET
1,1
COMMENTS
Inspired by prime curios about 4957 (cf. LINKS), one of which honors the late Bruce Murray, 30.11.1931 - 29.8.2013.
LINKS
C. Caldwell, G.L. Honaker (Eds.), 4957 (another Prime Pages' Curiosity).
MATHEMATICA
With[{cr3=RealDigits[CubeRoot[3], 10, 100][[1]]}, Select[Table[FromDigits[Take[cr3, n]], {n, 100}], PrimeQ]] (* Harvey P. Dale, Mar 30 2024 *)
PROG
(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]", "))
CROSSREFS
KEYWORD
nonn,bref,less,base
AUTHOR
M. F. Hasler, Aug 31 2013
STATUS
approved