A034843 Number of divisors = first digit.

1, 2, 23, 29, 46, 63, 68, 88, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293, 361, 403, 407, 411, 413, 415, 417, 422, 427, 437, 445, 446, 447, 451, 453, 454, 458, 466, 469, 471, 473, 478, 481, 482, 485, 489, 493, 497, 603, 604

Offset

1,2

Links

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

Mathematica

Select[Range[700], DivisorSigma[0, #]==IntegerDigits[#][[1]]&] (* Harvey P. Dale, Aug 04 2021 *)

Crossrefs

Sequence in context: A235148 A208325 A255564 * A084373 A107148 A062653

Adjacent sequences: A034840 A034841 A034842 * A034844 A034845 A034846

Keyword

nonn,base

Author

Erich Friedman

Extensions

1 prepended. - R. J. Mathar, Jul 26 2015

Status

approved