A052076 List of cubes p^3 of primes with property that next prime after p is a substring of p^3.

1331, 1030301, 11224377919, 40343019516073, 83964379378069, 153551511228149, 153548930496746303, 214889691497505989703913, 79943078473759892945966959, 16573430415736921632549592733, 22837138677705447754568672309, 940309072235302647342697969346063

Offset

1,1

Links

Giovanni Resta, Table of n, a(n) for n = 1..15

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

Cf. A052075, A052073, A052074, A274932.

Sequence in context: A076443 A278936 A263613 * A013795 A013860 A052072

Adjacent sequences: A052073 A052074 A052075 * A052077 A052078 A052079

Keyword

nonn,base,nice

Author

Patrick De Geest, Jan 15 2000

Extensions

More terms from Sam Handler (sam_5_5_5_0(AT)yahoo.com), Sep 12 2006

Definition clarified by Charles R Greathouse IV, Dec 24 2014

a(12) from Giovanni Resta, Jul 02 2018

Status

approved