A294264 - OEIS

%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