|
Search: id:A096842
|
|
| |
|
| 1, 3, 4, 7, 6, 8, 44, 222, 444, 888, 444, 888, 888, 2222, 6666, 8888, 8888, 222222, 88888, 222222, 444444, 444444, 888888, 444444, 444444, 666666, 888888, 888888, 888888, 888888, 888888, 444444, 444444, 888888, 888888, 888888, 888888, 888888
(list; graph; listen)
|
|
|
OFFSET
|
1,2
|
|
|
EXAMPLE
|
n=43:sigma[43]=44;
|
|
MATHEMATICA
|
rd[x_] := Length[Union[IntegerDigits[x]]] Do[s = rd[DivisorSigma[1, n]]; s1 = DivisorSigma[1, n]; If[Equal[s, 1], Print[{n, s1}]; ta[[u]] = n; u = u + 1], {n, 1, 1000000}]; ta; DivisorSigma[1, ta]
|
|
CROSSREFS
|
Cf. A096503-A096508, A096841-A096846, A000203.
Sequence in context: A120224 A132009 A086455 this_sequence A086469 A087030 A126253
Adjacent sequences: A096839 A096840 A096841 this_sequence A096843 A096844 A096845
|
|
KEYWORD
|
base,nonn
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jul 15 2004
|
|
|
Search completed in 0.002 seconds
|
