OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..49
MATHEMATICA
PalindromeQ = ((# // IntegerDigits // Reverse // FromDigits) == #) &; Select[Table[n^2 + 3*n + 1, {n, 1, 5000}], PalindromeQ] (* G. C. Greubel, Nov 26 2016 *)
PROG
(Magma) [p: n in [0..100000] | s eq Reverse(s) where s is Intseq(p) where p is n^2+3*n+1]; // Vincenzo Librandi, Nov 26 2016
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
Name corrected and sequence extended by T. D. Noe, Apr 17 2012
STATUS
approved