|
%I #19 Dec 16 2022 09:02:53
%S 2,6,10,26,30,50,126,130,150,250,626,630,650,750,1250,3126,3130,3150,
%T 3250,3750,6250,15626,15630,15650,15750,16250,18750,31250,78126,78130,
%U 78150,78250,78750,81250,93750,156250,390626,390630,390650,390750,391250,393750
%N Sums of two powers of 5.
%H T. D. Noe, <a href="/A055237/b055237.txt">Rows n = 0..100 of triangle, flattened</a>
%H Michael Penn, <a href="https://www.youtube.com/watch?v=pIk48dyiJWM">Fives and squares.</a>, YouTube video, 2021.
%F a(n) = 5^(n-trinv(n))+5^trinv(n), where trinv(n) = floor((1+sqrt(1+8*n))/2) = A002262(n) and n-trinv(n) = A003056(n).
%F Regarded as a triangle T(n, k) = 5^n + 5^k, so as a sequence a(n) = 5^A002262(n) + 5^A003056(n).
%t t = 5^Range[0, 9]; Select[Union[Flatten[Table[i + j, {i, t}, {j, t}]]], # <= t[[-1]] + 1 &] (* _T. D. Noe_, Oct 09 2011 *)
%t Total/@Tuples[5^Range[0,9],2]//Union (* _Harvey P. Dale_, Jan 29 2017 *)
%Y Cf. A052216.
%K nonn,easy,tabl
%O 0,1
%A _Henry Bottomley_, Jun 22 2000
|
