OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000 (terms 1..1000 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.
Eric Weisstein's World of Mathematics, Smith Numbers
EXAMPLE
88 is a 2^(-1) Smith number because the digit sum of 88, i.e., S(88) = 8 + 8 = 16, which is equal to twice the sum of the digits of its prime factors, i.e., 2 * Sp (88) = 2 * Sp (11 * 2 * 2 * 2) = 2 * (1 + 1 + 2 + 2 + 2) = 16.
MATHEMATICA
snoQ[n_]:=Total[IntegerDigits[n]]==2Total[Flatten[IntegerDigits/@ Flatten[ Table[First[#], {Last[#]}]&/@FactorInteger[n]]]]; Select[Range[ 6000], snoQ] (* Harvey P. Dale, Oct 15 2011 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
More terms from Shyam Sunder Gupta, Mar 11 2005
STATUS
approved