|
|
A210704
|
|
Primes formed by initial digits of 3^(1/3) = A002581, i.e., of the form floor[3^(1/3)*10^k].
|
|
5
|
|
|
|
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.
See A210706 for the k-values. The keyword "less" for this records means that the next term (2488 digits) cannot be added / displayed here, and instead of listing further primes here, the k-values should be recorded in A210706.
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
|
STATUS
|
approved
|
|
|
|