|
|
A052076
|
|
List of cubes p^3 of primes with property that next prime after p is a substring of p^3.
|
|
4
|
|
|
1331, 1030301, 11224377919, 40343019516073, 83964379378069, 153551511228149, 153548930496746303, 214889691497505989703913, 79943078473759892945966959, 16573430415736921632549592733, 22837138677705447754568672309, 940309072235302647342697969346063
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
MATHEMATICA
|
f[0]=8; f[n_]:=Module[{i=PrimePi[f[n-1]^(1/3)]+1},
While[StringPosition[ToString[Prime[i]^3], ToString[NextPrime[Prime[i]]]]=={}, i++]; Prime[i]^3]; f/@Range[7] (* Ivan N. Ianakiev, Nov 16 2016 *)
#^3&/@Select[Prime[Range[10^6]], SequenceCount[IntegerDigits[#^3], IntegerDigits[ NextPrime[ #]]]> 0&] (* Harvey P. Dale, Jul 29 2023 *)
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base,nice
|
|
AUTHOR
|
|
|
EXTENSIONS
|
More terms from Sam Handler (sam_5_5_5_0(AT)yahoo.com), Sep 12 2006
|
|
STATUS
|
approved
|
|
|
|