OFFSET
1,2
COMMENTS
No other n < 10^6. Note that n is a factorial or twice a factorial. For n = 1 and 6, there is no known k such that S(k) = S(n+k). For n = 2, 24, 48, 120, 240 and 720, the least k is respectively 16, 48, 10192, 240, 3600 and 3888.
LINKS
Eric Weisstein's World of Mathematics, Smarandache Function
MATHEMATICA
(*See A002034 for the Kempner function*) a=Table[Kempner[i], {i, 2000}]; lst={}; Do[i=1; While[i<=n&&a[[i]] != a[[i+n]], i++ ]; If[i>n, AppendTo[lst, n]], {n, 1000}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
T. D. Noe, Sep 30 2004
STATUS
approved