A079400 - OEIS

%I #9 Jan 10 2025 05:01:49

%S -49152,44641044,235839843750,-33108358984792,152531042848687932,

%T -1035399161730148306,-236679453955357194222,1241951576022650010980,

%U 17763491481043493649144,1566626343296375073246270,-1342664413260839080544608,-32418959483434058984538682

%N p^11 * A000594(p) as p runs through the primes.

%e a(1) = 2^11 * A000594(2) = -49152.

%t a[n_] := Module[{p = Prime[n]}, p^11 * RamanujanTau[p]]; Array[a, 12] (* _Amiram Eldar_, Jan 10 2025 *)

%o (PARI) T(n)=n*(n+1)/2;

%o rtau3(n)=local(y, j); y=0; j=1; while (T(j-1)<n, j++); j--; for (i=1, j, y=y-(-1)^i*(2*i-1)*x^(T(i-1))); y=y^8; polcoeff(y, n-1);

%o forprime (p=2, 40, print1(p^11*rtau3(p), ", "))

%Y Cf. A000594.

%K sign

%O 1,1

%A _Jon Perry_, Jan 07 2003