login
A238621
Position of first occurrence of n in A238525.
1
1, 6, 8, 9, 48, 12, 24, 15, 120, 22, 54, 26, 90, 57, 44, 34, 156, 38, 114, 85, 228, 46, 232, 87, 348, 93, 138, 58, 318, 62, 372, 111, 333, 265, 354, 74, 366, 129, 296, 82, 369, 86, 402, 667, 387, 94, 328, 159, 438, 244, 530, 106, 423, 177, 474, 183, 1416, 118, 498, 122, 742, 201, 590, 415, 534, 134, 610, 219
OFFSET
0,2
LINKS
MATHEMATICA
f[n_] := Mod[n, Dot @@ Transpose@ FactorInteger@ n]; t = Table[0, {1000}]; k = 1; While[k < 100001, a = f[k]; If[a < 1001 && t[[a]] == 0, t[[a]] = k; Print[{a, k}]]; k++]; t
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Robert G. Wilson v, Mar 01 2014
STATUS
approved