A048677 Concatenation of first n palindromic primes.
2, 23, 235, 2357, 235711, 235711101, 235711101131, 235711101131151, 235711101131151181, 235711101131151181191, 235711101131151181191313, 235711101131151181191313353, 235711101131151181191313353373, 235711101131151181191313353373383
Offset: 1
Crossrefs
Cf. A002385.
Programs
-
Mathematica
With[{pr=Select[Prime[Range[150]],IntegerDigits[#]==Reverse[ IntegerDigits[ #]]&]}, Table[ FromDigits[ Flatten[IntegerDigits/@Take[pr,n]]],{n,Length[ pr]}]] (* Harvey P. Dale, Mar 05 2014 *)
Extensions
More terms from Harvey P. Dale, Mar 05 2014