A238621 Position of first occurrence of n in A238525.

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

Author

Robert G. Wilson v, Mar 01 2014

Keywords

• nonn
• easy

Links

• Robert G. Wilson v, Table of n, a(n) for n = 0..1000

Crossrefs

Cf. A238525, A238526, A238527, A238528, A238529.

Programs

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