OFFSET
1,2
COMMENTS
All terms are odd. - Chai Wah Wu, Jan 18 2016
LINKS
MATHEMATICA
Select[Range[15000], PalindromeQ[5(6+4#+#^2)]&] (* The program uses the PalindromeQ function from Mathematica version 10.3 *) (* Harvey P. Dale, Nov 02 2015 *)
PROG
(PARI) isok(n) = my(d = digits(n^2 + (n+1)^2 + (n+2)^2 + (n+3)^2 + (n+4)^2)); d == Vecrev(d); \\ Michel Marcus, Jan 24 2016
CROSSREFS
KEYWORD
nonn,base,more
AUTHOR
EXTENSIONS
a(6) from Chai Wah Wu, Jan 18 2016
a(7) from Giovanni Resta, Aug 04 2019
STATUS
approved