OFFSET
1,1
COMMENTS
If there are 3 consecutive numbers which are Smith numbers, these can be called a Smith triple.
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
S. S. Gupta, Smith Numbers.
EXAMPLE
a(1) = 73615 because 73615 is the smallest of 3 consecutive integers which are Smith numbers, i.e., the three consecutive numbers 73615, 73616, 73617 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[3]; seq = {}; Do[sm = Join[Rest[sm], {smithQ[k]}]; If[And @@ sm, AppendTo[seq, k - 2]], {k, 4, 10^6}]; seq (* Amiram Eldar, Aug 18 2020 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Shyam Sunder Gupta, May 03 2005
EXTENSIONS
More terms from Amiram Eldar, Aug 18 2020
STATUS
approved