|
%I #6 Jan 11 2023 11:04:39
%S 1,0,1,2,2,4,2,4,6,7,7,8,14,10,13,12,15,19,22,22,23,25,25,44,44,40,28,
%T 50,44,54,52,55,50,66,53,72,83,80,58,73,82,110,114,123,127,113,91,112,
%U 158,137,117,122,152,135,166,160,211,206,171,219,240,201,188,194,236
%N Diagonal sums of number triangle A106262.
%H G. C. Greubel, <a href="/A106264/b106264.txt">Table of n, a(n) for n = 0..1000</a>
%F a(n) = Sum_{k=0..floor(n/2)} ( 2^(n-2*k) mod (k+2) ).
%t Table[Sum[Mod[2^(n-2*k), k+2], {k,0,Floor[n/2]}], {n,0,80}] (* _G. C. Greubel_, Jan 10 2023 *)
%o (Magma) [(&+[2^(n-2*k) mod (k+2): k in [0..Floor(n/2)]]): n in [0..80]]; // _G. C. Greubel_, Jan 10 2023
%o (SageMath)
%o def A106264(n): return sum( (2^(n-2*k)%(k+2)) for k in range(n//2+1) )
%o [A106264(n) for n in range(81)] # _G. C. Greubel_, Jan 10 2023
%Y Cf. A106262.
%K easy,nonn
%O 0,4
%A _Paul Barry_, Apr 28 2005
|
