A133074 Concatenation of next n isolated primes.

2, 2337, 475367, 79838997, 113127131157163, 167173211223233251, 257263277293307317331, 337353359367373379383389, 397401409439443449457467479, 487491499503509541547557563577

Offset

1,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.

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 *)

Crossrefs

Cf. A007510, A053067, A133013, A133014.

Sequence in context: A200170 A280899 A288164 * A280312 A276650 A135234

Adjacent sequences: A133071 A133072 A133073 * A133075 A133076 A133077

Keyword

base,easy,nonn

Author

Omar E. Pol, Nov 10 2007

Status

approved