A290139 a(n) = A225984(n) mod n.

0, 1, 2, 3, 4, 3, 6, 3, 2, 8, 10, 5, 12, 3, 8, 3, 16, 6, 18, 6, 0, 14, 22, 9, 9, 16, 11, 11, 28, 18, 30, 3, 26, 3, 33, 2, 36, 3, 6, 34, 40, 26, 42, 0, 2, 26, 46, 17, 41, 43, 27, 24, 52, 42, 28, 43, 12, 32, 58, 26, 60, 3, 60, 3, 23, 11, 66, 45, 62, 17, 70, 42, 72, 3

Offset

1,3

Links

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

Formula

a(p) = p - 1 for all prime p.

Mathematica

MapIndexed[Mod[#1, First@ #2] &, LinearRecurrence[{-1, 1, -1, 0, 1}, {-1, 3, -7, 11, -16}, 74]] (* Michael De Vlieger, Jul 21 2017, after T. D. Noe at A225984 *)

Crossrefs

Cf. A000040, A225876, A225984.

Sequence in context: A152920 A361442 A288778 * A317588 A080383 A086369

Adjacent sequences: A290136 A290137 A290138 * A290140 A290141 A290142

Keyword

nonn

Author

Seiichi Manyama, Jul 21 2017

Status

approved