A377841 Index of first occurrence of n in A375277, or -1 if n does not appear there.

1, 2, 13, 4, 8, 6, 37, 14, 49, 10, 20, 12, 1553, 26, 85, 16, 97, 18, 47, 32, 15114, 22, 44, 89, 145, 50, 54, 28, 56, 30, 33, 187, 31, 4073, 68, 36, 122, 91, 76, 40, 80, 42, 61, 86, 265, 46, 277, 94, 289, 98, 205, 52, 62, 1260, 337, 63, 971, 58, 349, 60, 288, 167, 84, 379, 128

Offset

1,2

Links

Table of n, a(n) for n=1..65.

Mathematica

f[n_] := Mod[n!, NextPrime@ n]; t[_] := 0; k = 0; While[k < 15201, a = f@ k; If[ t[a] == 0, t[a] = k]; k++]; t /@ Range[0, 70]

Crossrefs

Cf. A000040, A000142, A375277.

Sequence in context: A338785 A335817 A093079 * A095417 A369587 A366719

Adjacent sequences: A377838 A377839 A377840 * A377842 A377843 A377844

Keyword

base,nonn

Author

Robert G. Wilson v, Nov 10 2024

Status

approved