The OEIS is supported by the many generous donors to the OEIS Foundation.
%I #16 Dec 05 2022 04:42:12
%S 73615,209065,225951,283745,305455,342879,656743,683670,729066,747948,
%T 774858,879221,954590,1185547,1262722,1353955,1369374,1495718,1622495,
%U 1666434,1790480,2197579,2299772,2428854,2561678,2576441,2580367,2636516,2665480,2707580,2741816
%N Smallest member of a set of Smith triples.
%C If there are 3 consecutive numbers which are Smith numbers, these can be called a Smith triple.
%H Amiram Eldar, <a href="/A105648/b105648.txt">Table of n, a(n) for n = 1..10000</a>
%H S. S. Gupta, <a href="http://www.shyamsundergupta.com/smith.htm">Smith Numbers</a>.
%e 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.
%t 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 *)
%Y Cf. A006753, A050219, A059754, A105649, A105650.
%K nonn,base
%O 1,1
%A _Shyam Sunder Gupta_, May 03 2005
%E More terms from _Amiram Eldar_, Aug 18 2020