Location via proxy:   [ UP ]  
[Report a bug]   [Manage cookies]                
A155470
Numbers that are the sum of 2 numbers; nonzero square and cube, including repetitions, squareNumber <> cubeNumber.
2
5, 9, 10, 17, 17, 24, 26, 28, 31, 33, 37, 43, 44, 50, 52, 57, 63, 65, 65, 68, 72, 73, 76, 82, 89, 89, 91, 100, 101, 108, 108, 113, 122, 126, 127, 128, 129, 129, 134, 141, 145, 145, 148, 152, 161, 164, 170, 171, 174, 177, 185, 189, 196, 197, 204, 206, 208, 217, 220
OFFSET
1,1
COMMENTS
17=3^2+2^3, 17=4^2+1^3, 31=2^2+3^3, 43=4^2+3^3, 65=1^2+4^3, 65=8^2+1^3, 100=6^2+4^3, ...
MATHEMATICA
lst={}; Do[Do[Do[If[x!=y, a=x^2+y^3; If[a>n, Break[]]; If[a==n, AppendTo[lst, n]]], {y, 5!}], {x, 5!}], {n, 4*5!}]; lst
KEYWORD
nonn
AUTHOR
STATUS
approved