A133060 Concatenation of next n twin primes.

3, 57, 111317, 19293141, 4359617173, 101103107109137139, 149151179181191193197, 199227229239241269271281, 283311313347349419421431433, 461463521523569571599601617619

Offset

1,1

Links

Table of n, a(n) for n=1..10.

Omar E. Pol, Determinacion geometrica de los numeros primos y perfectos.

Mathematica

Module[{pp=200, tps}, tps=Union[Flatten[Select[Partition[Prime[Range[ pp]], 2, 1], #[[2]]-#[[1]]==2&]]]; FromDigits[Flatten[ IntegerDigits/@#]]&/@ TakeList[tps, Range[Floor[(Sqrt[1+8Length[tps]]-1)/2]]]] (* Harvey P. Dale, Apr 06 2022 *)

Crossrefs

Cf. A001097, A053067, A133013, A133014.

Sequence in context: A086220 A127263 A134723 * A198915 A037107 A335293

Adjacent sequences: A133057 A133058 A133059 * A133061 A133062 A133063

Keyword

base,easy,nonn

Author

Omar E. Pol, Nov 10 2007

Status

approved