A115002 a(n) = J_4(n)/240.

5, 10, 16, 27, 39, 61, 80, 119, 150, 208, 256, 348, 405, 543, 624, 800, 915, 1166, 1280, 1625, 1785, 2187, 2400, 2947, 3120, 3848, 4096, 4880, 5220, 6240, 6480, 7809, 8145, 9520, 9984, 11774, 12000, 14245, 14640, 16848, 17490, 20332, 20480, 24010, 24375

Offset

6,1

Comments

See A115000 for further information.

Links

Andrew Howroyd, Table of n, a(n) for n = 6..10000

Formula

a(n) = A059377(n)/240. - Andrew Howroyd, Nov 18 2025

Mathematica

f[p_, e_] := p^(4*e) - p^(4*e-4); a[n_] := Times @@ f @@@ FactorInteger[n] / 240; Array[a, 45, 6] (* Amiram Eldar, Nov 24 2025 *)

Prog

(PARI) J(m, n)=my(f=factor(n)); prod(i=1, #f~, my([p, e]=f[i, ]); (p^m-1)*p^(m*(e-1)))
a(n) = J(4, n)/240 \\ Andrew Howroyd, Nov 18 2025

Crossrefs

Cf. A059377, A115000.

Sequence in context: A345070 A194275 A026059 * A301290 A152234 A357997

Adjacent sequences: A114999 A115000 A115001 * A115003 A115004 A115005

Keyword

nonn

Author

Franklin T. Adams-Watters, Dec 10 2005

Extensions

a(43) onward from Andrew Howroyd, Nov 18 2025

Status

approved