A079298 Binomial numbers: of the form a^k +- b^k for k >= 2.

0, 1, 2, 3, 4, 5, 7, 8, 9, 10, 11, 12, 13, 15, 16, 17, 18, 19, 20, 21, 23, 24, 25, 26, 27, 28, 29, 31, 32, 33, 34, 35, 36, 37, 39, 40, 41, 43, 44, 45, 47, 48, 49, 50, 51, 52, 53, 54, 55, 56, 57, 58, 59, 60, 61, 63, 64, 65, 67, 68, 69, 71, 72, 73, 74, 75, 76, 77, 79, 80, 81, 82

Offset: 1

Author

David W. Wilson, Feb 09 2003

Keywords

• nonn

Examples

			10 = 3^2+1^2; 13 = 7^2-6^2; 54 = 3^3+3^3.
		

Links

• Robert Israel, Table of n, a(n) for n = 1..10000
• Eric Weisstein's World of Mathematics, Binomial Number.

Crossrefs

Complement of A079299.

Programs

Maple

N:= 200: # for all terms <= N
kmax:= floor(LambertW(2*ln(2)*N)/ln(2)):
S:= {0};
for k from 2 to kmax do
  bmax:= floor((N/k)^(1/(k-1)));
  S:= S union select(`<=`,{seq(seq(b^k-a^k,a=0..b-1),b=1..bmax), seq(seq(b^k+a^k,a=0..b),b=1..floor(N^(1/k)))},N);
od:
sort(convert(S,list)); # Robert Israel, Jan 03 2019