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
Programs
-
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]