This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A052075 #23 Jan 20 2022 15:59:03 %S A052075 11,101,2239,34297,43789,53549,535487,59897017,430784719,2549592677, %T A052075 2837138669,97969345967,100000000019,328096840219,4110739763869 %N A052075 Primes p such that nextprime(p) is substring of p^3. %C A052075 a(16) > 6.9*10^12. - _Giovanni Resta_, Jul 02 2018 %t A052075 Select[Prime[Range[1,10000]],StringContainsQ[ToString[#^3],ToString[NextPrime[#]]]&] (* _Julien Kluge_, Sep 19 2016 *) %t A052075 Select[Prime[Range[45000]],SequenceCount[IntegerDigits[#^3],IntegerDigits[ NextPrime[ #]]]>0&] (* Requires Mathematica version 10 or later *) (* The program generates the first 7 terms of the sequence: to generate more, increase Range constant. *) (* _Harvey P. Dale_, Jan 25 2021 *) %o A052075 (Python) %o A052075 from itertools import count, islice %o A052075 from sympy import prime, nextprime %o A052075 def A052075_gen(): return filter(lambda p: str(nextprime(p)) in str(p**3), (prime(n) for n in count(1))) %o A052075 A052075_list = list(islice(A052075_gen(),3)) # _Chai Wah Wu_, Jan 20 2022 %Y A052075 Cf. A052076, A052073, A052074. %K A052075 nonn,base,more,nice %O A052075 1,1 %A A052075 _Patrick De Geest_, Jan 15 2000 %E A052075 More terms from Sam Handler (sam_5_5_5_0(AT)yahoo.com), Sep 12 2006 %E A052075 Offset corrected by _N. J. A. Sloane_, Jul 13 2016 %E A052075 a(12)-a(15) from _Giovanni Resta_, Jul 02 2018 %E A052075 Definition clarified by _Chai Wah Wu_, Jan 20 2022