A214420 Numbers not representable as the sum of three 11-gonal numbers.
4, 5, 6, 7, 8, 9, 10, 14, 15, 16, 17, 18, 19, 20, 21, 24, 25, 26, 27, 28, 29, 34, 35, 36, 37, 38, 39, 40, 43, 44, 45, 46, 47, 48, 49, 50, 51, 53, 54, 55, 56, 57, 62, 63, 64, 65, 66, 67, 68, 72, 73, 74, 75, 76, 77, 78, 79, 81, 82, 83, 84, 85, 86, 87, 91, 92
Offset: 1
References
- R. K. Guy, Unsolved Problems in Number Theory, D3.
Links
- T. D. Noe, Table of n, a(n) for n = 1..12453
- R. K. Guy, Every number is expressible as the sum of how many polygonal numbers?, Amer. Math. Monthly 101 (1994), 169-172.
Programs
-
Mathematica
nn = 900; hen = Table[n*(9*n-7)/2, {n, 0, nn}]; t = Table[0, {hen[[-1]]}]; Do[n = hen[[i]] + hen[[j]] + hen[[k]]; If[n <= hen[[-1]], t[[n]] = 1], {i, nn}, {j, i, nn}, {k, j, nn}]; Flatten[Position[t, 0]]
Comments