A076206 Numbers with digital root equal to their number of divisors.

1, 2, 11, 22, 29, 36, 47, 58, 83, 85, 94, 101, 137, 152, 166, 170, 173, 191, 202, 225, 227, 247, 263, 265, 274, 281, 296, 301, 317, 319, 346, 353, 355, 382, 389, 391, 427, 441, 443, 445, 454, 461, 479, 481, 494, 517, 526, 530, 535, 553, 562, 569, 584, 587

Offset

1,2

Links

Harvey P. Dale, Table of n, a(n) for n = 1..10000

Example

a(6)=36 because 3+6=9 and 36 has 9 divisors.

Mathematica

drndQ[n_]:=NestWhile[Total[IntegerDigits[#]]&, n, #>9&]==DivisorSigma[0, n]; Select[Range[600], drndQ] (* Harvey P. Dale, Apr 03 2013 *)

Crossrefs

Cf. A000005, A010888.

Sequence in context: A018491 A031010 A161708 * A018563 A018590 A057531

Adjacent sequences: A076203 A076204 A076205 * A076207 A076208 A076209

Keyword

base,easy,nonn

Author

Jason Earls, Nov 02 2002

Status

approved