OFFSET
1,2
COMMENTS
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
MATHEMATICA
Select[Table[PolygonalNumber[9, n], {n, 0, 170}], Divisible[#, 9] &] (* Amiram Eldar, Mar 22 2021 *)
PROG
(PARI) isok(n) = ispolygonal(n, 9) && !(n % 9); \\ Michel Marcus, Feb 27 2014
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), Apr 29 2006
STATUS
approved