OFFSET
1,2
LINKS
Harvey P. Dale, Table of n, a(n) for n = 1..1000
MATHEMATICA
Select[Table[n*(3*n - 1)/2, {n, 0, 3000}], AllTrue[IntegerDigits[#], OddQ] &] (* Amiram Eldar, Feb 06 2021 *)
Select[PolygonalNumber[5, Range[1500]], AllTrue[IntegerDigits[#], OddQ]&] (* Harvey P. Dale, Oct 17 2021 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Luc Stevens (lms022(AT)yahoo.com), May 03 2006
EXTENSIONS
Missing terms inserted by Amiram Eldar, Feb 06 2021
STATUS
approved