%I #11 Apr 27 2019 10:49:10
%S 0,1,2,6,39,55,87,182,556,644,797,917,1593,1685,25141,51425,55556,
%T 83527,810311,1620213,1853942,5555556,17352586,17835196,25004441,
%U 91071921,170563673,181737182,184252876,507354403,1240058219,1783816196,2756800387
%N Index numbers for palindromic hexagonal numbers.
%t Select[Range[0, 10^6], PalindromeQ[PolygonalNumber[6, #]] &] (* _Robert Price_, Apr 27 2019 *)
%Y Cf. A000384, A054969, A082721.
%K nonn,base
%O 1,3
%A _Jeff Heleen_, May 26 2000
%E Added a(1)=0 by _Robert Price_, Apr 27 2019