A133074 Concatenation of next n isolated primes.
2, 2337, 475367, 79838997, 113127131157163, 167173211223233251, 257263277293307317331, 337353359367373379383389, 397401409439443449457467479, 487491499503509541547557563577
Offset: 1
Links
- Harvey P. Dale, Table of n, a(n) for n = 1..166
- Omar E. Pol, Determinacion geometrica de los numeros primos y perfectos.
Programs
-
Mathematica
Module[{ip=Select[Prime[Range[200]],NoneTrue[#+{2,-2},PrimeQ]&],c},c = Floor[ (Sqrt[8 Length[ip]+1]-1)/2];FromDigits[Flatten[IntegerDigits/@#]]&/@TakeList[ ip,Range[c]]] (* Harvey P. Dale, Jun 09 2022 *)