A099178 Numbers which are the sum of two positive cubes and divisible by 17.

1241, 1343, 1547, 1853, 2261, 2771, 3383, 4097, 9826, 9928, 10234, 10744, 11458, 12376, 13498, 14824, 16354, 18088, 20026, 22168, 24514, 27064, 29818, 32776, 33201, 33507, 34119, 35037, 35938, 36261, 37791, 39627, 41769, 44217, 46971

Offset

1,1

Links

Vincenzo Librandi, Table of n, a(n) for n = 1..1000

Example

Sums not divisible by 17 are indicated in asterisks:
....|...1....8...27...64...125...216...343...512...729..1000..1331
------------------------------------------------------------------
1...|...*....*....*....*.....*.....*.....*.....*.....*.....*.....*
8...|...*....*....*....*.....*.....*.....*.....*.....*.....*.....*
27..|...*....*....*....*.....*.....*.....*.....*.....*.....*.....*
64..|...*....*....*....*.....*.....*.....*.....*.....*.....*.....*
125.|...*....*....*....*.....*.....*.....*.....*.....*.....*.....*
216.|...*....*....*....*.....*.....*.....*.....*.....*.....*..1547
343.|...*....*....*....*.....*.....*.....*.....*.....*..1343.....*
512.|...*....*....*....*.....*.....*.....*.....*...1241....*.....*
729.|...*....*....*....*.....*.....*.....*..1241.....*.....*.....*
1000|...*....*....*....*.....*.....*..1343.....*.....*.....*.....*
1331|...*....*....*....*.....*..1547.....*.....*.....*.....*.....*

Mathematica

upto[n_] := Block[{t}, Union@ Reap[ Do[If[Mod[t = x^3 + y^3, 17] == 0, Sow@t], {x, n^(1/3)}, {y, Min[x, (n - x^3)^(1/3)]}]][[2, 1]]]; upto[47000] (* Giovanni Resta, Jun 12 2020 *)

Crossrefs

Cf. A098365.

Sequence in context: A237552 A010081 A028514 * A209711 A228964 A047628

Adjacent sequences: A099175 A099176 A099177 * A099179 A099180 A099181

Keyword

nonn,easy

Author

Jun Mizuki (suzuki32(AT)sanken.osaka-u.ac.jp), Nov 15 2004

Status

approved