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,3

Links

Robert Israel, Table of n, a(n) for n = 1..10000

Eric Weisstein's World of Mathematics, Binomial Number.

Example

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

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

Crossrefs

Complement of A079299.

Sequence in context: A071000 A088451 A047595 * A263715 A023055 A359528

Adjacent sequences: A079295 A079296 A079297 * A079299 A079300 A079301

Keyword

nonn

Author

David W. Wilson, Feb 09 2003

Status

approved