A246808 Palindromic terms of the sequence A245317.
2112, 4803443084, 6992662996, 180461164081, 214591195412, 409473374904, 563715517365, 4163019339103614, 1050417996997140501
Offset: 1
Programs
-
Mathematica
h[n_]:=If[!PrimeQ[n],FromDigits[Flatten[{IntegerDigits[n],IntegerDigits[n-PrimePi[n]-1]}]]];Do[a=h[n];If[!PrimeQ[n]&&FromDigits[Reverse[IntegerDigits[a]]]==a,Print[a]],{n,100000000}]
Extensions
a(9) from Farideh Firoozbakht, Sep 23 2014
Comments