OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..1000
S. S. Gupta, Smith Numbers.
EXAMPLE
a(1) = 4463535 because 4463535 is the smallest member of a set of 4 consecutive numbers which are Smith numbers i.e. four consecutive numbers 4463535, 4463536, 4463537, 4463538 are all Smith numbers.
MATHEMATICA
digSum[n_] := Plus @@ IntegerDigits[n]; smithQ[n_] := CompositeQ[n] && Plus @@ (Last @#* digSum[First@#] & /@ FactorInteger[n]) == digSum[n]; sm = smithQ /@ Range[4]; seq = {}; Do[sm = Join[Rest[sm], {smithQ[k]}]; If[And @@ sm, AppendTo[seq, k - 3]], {k, 5, 10^7}]; seq (* Amiram Eldar, Aug 18 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Shyam Sunder Gupta, May 03 2005
EXTENSIONS
a(7) inserted and more terms added by Amiram Eldar, Aug 18 2020
STATUS
approved