A133060 Concatenation of next n twin primes.

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

Offset: 1

Author

Omar E. Pol, Nov 10 2007

Keywords

• base
• easy
• nonn

Links

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

Crossrefs

Cf. A001097, A053067, A133013, A133014.

Programs

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