A307174 Numbers that are both triangular and icosahedral.
0, 1, 1128, 87153
Offset: 1
Crossrefs
Programs
-
Mathematica
Intersection[Accumulate[Range[0, 199]], Table[n (5n^2 - 5n + 2)/2, {n, 0, 99}]] (* Alonso del Arte, Jul 10 2019 *)
-
PARI
lista(nn) = for (n=0, nn, if (ispolygonal(k=n*(5*n^2 - 5*n + 2)/2, 3), print1(k, ", "))); \\ Michel Marcus, Jul 10 2019
Extensions
Keyword "full" added by Max Alekseyev, Feb 12 2024
Comments