OFFSET
1,3
MATHEMATICA
Select[Range[0, 10^6], PalindromeQ[PolygonalNumber[6, #]] &] (* Robert Price, Apr 27 2019 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Jeff Heleen, May 26 2000
EXTENSIONS
Added a(1)=0 by Robert Price, Apr 27 2019
STATUS
approved