A030521 Product of first n palindromic primes plus 1.
3, 7, 31, 211, 2311, 233311, 30563611, 4615105111, 835334024911, 159548798757811, 49938774011194531, 17628387225951669091, 6575388435279972570571, 2518373770712229494528311, 1830857731307790842522081371, 1385959302599997667789215597091
Offset: 1
Programs
-
Mathematica
palpQ[n_]:=Module[{idn=IntegerDigits[n]},idn==Reverse[idn]]; #+1&/@FoldList[ Times, 1,Select[Prime[Range[500]],palpQ]] (* Harvey P. Dale, Apr 23 2011 *)
Extensions
Corrected and extended by Patrick De Geest, Sep 15 2000
More terms from Harvey P. Dale, Apr 23 2011
Comments