|
%I #33 Dec 11 2023 10:37:57
%S 2,8,31,66,154,220,443,518,991,1004,1910,1738,3315,2746,5359,4102,
%T 8185,5842,11963,8014,16858,10666,23112,13846,30899,17576,40447,21954,
%U 52029,27004,65880,32774,82276,39312,101509,46666,123887,54884,149695,64014,179308,74104,213082
%N a(n) = (5/128)*n^4*(n mod 2) + (((-5/128)*n^4*(n mod 2) - 26) mod n) + n^3 (n > 0).
%H Andrew Howroyd, <a href="/A294264/b294264.txt">Table of n, a(n) for n = 1..1000</a>
%F a(n) = (5/128)*n^4*(n mod 2) + (((-5/128)*n^4*(n mod 2) - 26) mod n) + n^3 (n > 0).
%t Map[ Mod[-5/128*#^4*Mod[#, 2] - 26, #] + 5/128*#^4*Mod[#, 2] + #^3 &, Range[10^5]]
%o (PARI)
%o rmod(n,m)={n-n\m*m}
%o a(n)={(5/128)*n^4*(n % 2) + rmod(((-5/128)*n^4*(n % 2) - 26), n) + n^3} \\ _Andrew Howroyd_, Feb 28 2018
%K nonn
%O 1,1
%A _Mikk Heidemaa_, Oct 26 2017
|
