This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A238621 #9 Mar 02 2014 03:23:07
%S A238621 1,6,8,9,48,12,24,15,120,22,54,26,90,57,44,34,156,38,114,85,228,46,
%T A238621 232,87,348,93,138,58,318,62,372,111,333,265,354,74,366,129,296,82,
%U A238621 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 A238621 Position of first occurrence of n in A238525.
%H A238621 Robert G. Wilson v, <a href="/A238621/b238621.txt">Table of n, a(n) for n = 0..1000</a>
%t A238621 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 A238621 Cf. A238525, A238526, A238527, A238528, A238529.
%K A238621 nonn,easy
%O A238621 0,2
%A A238621 _Robert G. Wilson v_, Mar 01 2014