|
|
A186649
|
|
Total number of positive integers below 10^n requiring 2 positive biquadrates in their representation as sum of biquadrates.
|
|
19
|
|
|
1, 5, 14, 43, 143, 460, 1467, 4613, 14629, 46341, 146545, 463344, 1465658, 4634967, 14657277, 46350371
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
COMMENTS
|
|
|
LINKS
|
|
|
MAPLE
|
isbiquadrate:=proc(n) type(root(n, 4), posint); end:
isA003336:=proc(n) local x, y4; if isbiquadrate(n) then false; else for x from 1 do y4:=n-x^4; if y4<x^4 then return false; elif isbiquadrate(y4) then return true; fi; od; fi; end:
a:=proc(n) local i, k; i:=0; for k from 2 to 10^n-1 do if isA003336(k) then i:=i+1; fi; od: return(i); end: for n from 1 do print(a(n)); od;
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|