OFFSET
1,2
COMMENTS
LINKS
OEIS Wiki, Centered Platonic numbers [Unapproved page]
MATHEMATICA
nn = 18; t1 = Table[(2 n + 1) (n^2 + n + 3)/3, {n, 0, nn}]; t2 = Table[(2 n + 1) (2 n^2 + 2 n + 3)/3, {n, 0, nn}]; t3 = Table[n^3 + (n + 1)^3, {n, 0, nn}]; t4 = Table[(2 n + 1) (5 n^2 + 5 n + 3)/3, {n, 0, nn}]; t5 = Table[(2 n + 1) (5 n^2 + 5 n + 1), {n, 0, nn}]; Select[Union[t1, t2, t3, t4, t5], # <= t1[[-1]] &]
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Ilya Gutkovskiy, Apr 01 2017
STATUS
approved