[go: up one dir, main page]

login
A110223
Numbers not the absolute difference between a cube and a square.
4
6, 14, 21, 29, 32, 34, 42, 46, 51, 58, 59, 62, 66, 69, 70, 75, 77, 78, 84, 85, 86, 88, 90, 93, 96, 102, 103, 110, 111, 114, 115, 123, 130, 133, 137, 140, 149, 157, 158, 160, 162, 165, 166, 173, 176, 178, 179, 181, 182, 183, 187, 194, 201, 202, 203, 205, 209, 210, 211
OFFSET
1,1
COMMENTS
See A074981 for references.
MATHEMATICA
Complement[ Range[212], Union[ Flatten[ Table[ Select[ Table[ Abs[n^3 - m^2], {m, 0, 10000}], # < 10^3 &], {n, -5000, 5000}]]]]
CROSSREFS
Cf. A074981. Intersection of A081121 and A054504.
Sequence in context: A244175 A063299 A184924 * A190504 A175582 A182081
KEYWORD
nonn,nice
AUTHOR
Robert G. Wilson v, Jul 16 2005
STATUS
approved