OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
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
6969 is a 3^(-1) Smith number because the digit sum of 6969, i.e., S(6969) = 6 + 9 + 6 + 9 = 30, which is equal to 3 times the sum of the digits of its prime factors, i.e., 3*Sp(6969) = 3 * Sp(3 * 23 * 101) = 3 *( 3 + 2 + 3 + 1 + 0 + 1) = 30.
MATHEMATICA
digSum[n_] := Plus @@ IntegerDigits[n]; thirdSmithQ[n_] := CompositeQ[n] && 3 * Plus @@ (Last@# * digSum[First@#] & /@ FactorInteger[n]) == digSum[n]; Select[Range[666633], thirdSmithQ] (* Amiram Eldar, Aug 23 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
EXTENSIONS
More terms from Shyam Sunder Gupta, Mar 11 2005
STATUS
approved