

A105649


Smallest member of set of 4 consecutive numbers which are Smith numbers.


2



4463535, 6356910, 8188933, 9425550, 11148564, 15966114, 15966115, 18542654, 21673542, 22821992, 23767287, 28605144, 36615667, 39227466, 47096634, 47395362, 48072396, 54054264, 55464835, 57484614, 57756450, 57761165, 58418508, 61843387, 62577157, 64572186, 65484066
(list;
graph;
refs;
listen;
history;
text;
internal format)



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

Cf. A006753, A050219, A059754, A105648, A105650.
Sequence in context: A019288 A237910 A244575 * A015337 A339536 A319064
Adjacent sequences: A105646 A105647 A105648 * A105650 A105651 A105652


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



