A299165 a(n) = A000594(n) mod n*(n+1).

1, 0, 0, 8, 0, 0, 0, 24, 27, 20, 12, 24, 112, 126, 120, 48, 180, 324, 140, 0, 420, 460, 24, 360, 275, 510, 0, 532, 720, 390, 672, 96, 318, 406, 840, 612, 68, 630, 144, 1480, 1260, 1680, 676, 156, 0, 344, 1296, 1344, 343, 1800, 72, 392, 1566, 540, 2520, 1680

Offset

1,4

Links

Seiichi Manyama, Table of n, a(n) for n = 1..10000

Mathematica

a[n_] := Mod[RamanujanTau[n], n*(n+1)]; Array[a, 100] (* Amiram Eldar, Jan 10 2025 *)

Prog

(PARI) {a(n) = ramanujantau(n)%(n*(n+1))}

Crossrefs

Cf. A000594, A299158, A299163.

Sequence in context: A028705 A028608 A028600 * A221890 A047758 A186980

Adjacent sequences: A299162 A299163 A299164 * A299166 A299167 A299168

Keyword

nonn,changed

Author

Seiichi Manyama, Feb 04 2018

Status

approved