A238621 - OEIS

%I #9 Mar 02 2014 03:23:07

%S 1,6,8,9,48,12,24,15,120,22,54,26,90,57,44,34,156,38,114,85,228,46,

%T 232,87,348,93,138,58,318,62,372,111,333,265,354,74,366,129,296,82,

%U 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

%N Position of first occurrence of n in A238525.

%H Robert G. Wilson v, <a href="/A238621/b238621.txt">Table of n, a(n) for n = 0..1000</a>

%t 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

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

%K nonn,easy

%O 0,2

%A _Robert G. Wilson v_, Mar 01 2014