|
%I #36 Dec 12 2022 03:15:09
%S 4,35,66,97,128,246,277,308,339,488,519,550,730,761,972,1027,1058,
%T 1089,1120,1269,1300,1331,1511,1542,1753,2050,2081,2112,2292,2323,
%U 2534,3073,3104,3128,3159,3190,3221,3315,3370,3401,3432,3612,3643,3854,4096,4151,4182,4213
%N Numbers that are the sum of 4 positive 5th powers.
%H David A. Corneth, <a href="/A003349/b003349.txt">Table of n, a(n) for n = 1..10000</a> (first 1000 terms from T. D. Noe)
%e From _David A. Corneth_, Aug 03 2020: (Start)
%e 670593 is in the sequence as 670593 = 1^5 + 8^5 + 10^5 + 14^5.
%e 862512 is in the sequence as 862512 = 7^5 + 9^5 + 12^5 + 14^5.
%e 1892695 is in the sequence as 1892695 = 1^5 + 1^5 + 5^5 + 18^5. (End)
%t f@n_:= Select[Range@n,IntegerPartitions[#,{4},Range@(n^(1/5))^5] != {} &]; f@10000 (* _Hans Rudolf Widmer_, Dec 04 2022 *)
%Y Cf. A000584, A003338, A003348, A003350, A344642, A344644.
%K nonn,easy
%O 1,1
%A _N. J. A. Sloane_
%E Incorrect program removed by _David A. Corneth_, Aug 03 2020
|
