OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..600 from Harvey P. Dale)
Shyam Sunder Gupta, Smith Numbers.
Wayne L. McDaniel, The Existence of infinitely Many k-Smith numbers, Fibonacci Quarterly, Vol. 25, No. 1 (1987), pp. 76-80.
EXAMPLE
2401 is a 4-Smith number because the sum of the digits of its prime factors, i.e., Sp(2401) = Sp(7*7*7*7) = 7 + 7 + 7 + 7 = 28, which is equal to 4 times the digit sum of 2401, i.e., 4*S(2401) = 4*(2 + 4 + 0 + 1) = 28.
MATHEMATICA
sn4Q[n_]:=Module[{a=Total[Flatten[IntegerDigits/@(Table[First[#], {Last[ #]}]&/@FactorInteger[n])]], b=4Total[IntegerDigits[n]]}, a==b] (* Harvey P. Dale, Oct 03 2011 *)
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Shyam Sunder Gupta, Mar 16 2005
STATUS
approved