login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A104166 Repdigit Smith numbers. 1
4, 22, 666, 1111, 6666666, 4444444444, 44444444444444444444, 555555555555555555555555555, 55555555555555555555555555555555, 4444444444444444444444444444444444444444444444444444444 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Table of n, a(n) for n=1..10.

S. S. Gupta, Smith Numbers.

MATHEMATICA

d[n_]:=IntegerDigits[n]; tr[n_]:=Transpose[FactorInteger[n]]; a[n_]:=NestList[FromDigits[Flatten[d[{#, n}]]]&, n, 55]; t={}; Do[If[!PrimeQ[n]&&Total[d[n]]==Total[d@tr[n][[1]]*tr[n][[2]], 2], AppendTo[t, n]], {n, Drop[Union[Flatten[Table[a[k], {k, 9}]]], 1]}]; t (* Jayanta Basu, Jun 04 2013 *)

CROSSREFS

Cf. A006753.

Sequence in context: A276122 A145504 A276124 * A273054 A065401 A053775

Adjacent sequences:  A104163 A104164 A104165 * A104167 A104168 A104169

KEYWORD

base,nonn

AUTHOR

Shyam Sunder Gupta, Mar 10 2005

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified February 22 14:58 EST 2017. Contains 282487 sequences.