%I #15 Jan 29 2019 09:24:04
%S 1,2,8,9,18,45,128,243,486,625,1215,1250,1701,1875,2673,3750,4375,
%T 5000,6561,6875,8125,8750,10625,11875,13122,13125,13750,16250,16875,
%U 20625,21250,23750,24375,31875,32768,32805,35625,45927,48125,56875,72171,74375,83125
%N Numbers n such that number of divisors of n divides S(n), the Kempner function A002034.
%t S[n_] := Block[{k = 1}, While[ ! IntegerQ[k!/n], k++ ]; k]; Do[ If[ IntegerQ[ S[n]/DivisorSigma[0, n]], Print[n]], {n, 1, 3000}]
%Y Cf. A000005, A002034, A073331, A073535.
%K nonn
%O 1,2
%A _Jason Earls_, Aug 23 2002
%E More terms from _Robert G. Wilson v_, Aug 25 2002
%E More terms from _Amiram Eldar_, Jan 28 2019
|