A213524 - OEIS

%I #8 Jul 06 2018 09:47:56

%S 4,5,6,7,11,12,13,14,15,18,19,20,25,26,27,28,31,32,33,34,35,36,38,39,

%T 44,45,46,47,51,52,53,54,55,57,58,59,60,64,68,70,71,72,75,76,77,78,79,

%U 83,84,85,89,90,91,92,93,95,99,100,102,103,108,109,110,111

%N Numbers not representable as the sum of three octagonal numbers.

%C There are an infinite number of numbers that are not the sum of three octagonal numbers.

%D R. K. Guy, Unsolved Problems in Number Theory, D3.

%H T. D. Noe, <a href="/A213524/b213524.txt">Table of n, a(n) for n = 1..10000</a>

%H R. K. Guy, <a href="https://www.jstor.org/stable/2324367">Every number is expressible as the sum of how many polygonal numbers?</a>, Amer. Math. Monthly 101 (1994), 169-172.

%t nn = 100; oct = Table[n*(3*n-2), {n, 0, nn}]; t = Table[0, {oct[[-1]]}]; Do[n = oct[[i]] + oct[[j]] + oct[[k]]; If[n <= oct[[-1]], t[[n]] = 1], {i, nn}, {j, i, nn}, {k, j, nn}]; Flatten[Position[t, 0]]

%Y Cf. A000567 (octagonal numbers).

%Y Cf. A118278, A118279.

%K nonn

%O 1,1

%A _T. D. Noe_, Jul 16 2012