OFFSET
1,8
REFERENCES
A. Vella and D. Vella, On Smith and Dunckley Numbers, Mathematics Today (Bull. Inst. Math. Appl), Vol. 37, No. 2 (2001), 54-56.
A. Vella and D. Vella, More Properties of Dunckley Numbers (in preparation).
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
EXAMPLE
The first 4 composite numbers, 4, 6, 8, and 9, are not Smith numbers in any base, so a(n) = 0 for n = 1 to 4.
A002808(5) = 10 is a Smith number in one base, 4, so a(5) = 1.
MATHEMATICA
digSum[n_, b_] := Plus @@ IntegerDigits[n, b]; smithCount[n_] := If[! CompositeQ[n], 0, Module[{c = 0, f = FactorInteger[n]}, p = f[[;; , 1]]; e = f[[;; , 2]]; Do[If[Total[e*(digSum[#, b] & /@ p)] == digSum[n, b], c++], {b, 2, n}]; c]]; smithCount /@ Select[Range[100], CompositeQ] (* Amiram Eldar, Aug 21 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Alfred and Dominic Vella (dunckley(AT)thevellas.freeserve.co.uk), Mar 19 2001
EXTENSIONS
a(1) added and offset corrected by Amiram Eldar, Aug 21 2020
STATUS
approved