|
|
A070928
|
|
Smallest integer >= 0 of the form x^4 - n^3.
|
|
0
|
|
|
0, 8, 54, 17, 131, 40, 282, 113, 567, 296, 1070, 673, 204, 1352, 721, 0, 1648, 729, 3141, 2000, 739, 3993, 2474, 817, 5111, 3160, 1053, 6609, 4172, 1561, 8625, 5648, 2479, 11321, 7750, 3969, 14883, 10664, 6217, 1536, 14600, 9433, 4014, 19792
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
a(n)=0 if n is a power of 4.
|
|
LINKS
|
|
|
FORMULA
|
a(n) = ceiling(n^(3/4))^4 - n^3.
|
|
MATHEMATICA
|
si[n_]:=Module[{k=Ceiling[Surd[n^3, 4]]}, While[!Integer[k^4-n^3], k++]; k^4-n^3]; Array[si, 50] (* Harvey P. Dale, Jan 03 2021 *)
|
|
PROG
|
(PARI) for(n=1, 100, print1(ceil(n^(3/4))^4-n^3, ", "))
|
|
CROSSREFS
|
|
|
KEYWORD
|
easy,nonn
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|