A034843 - OEIS

%I #10 Aug 04 2021 13:53:53

%S 1,2,23,29,46,63,68,88,211,223,227,229,233,239,241,251,257,263,269,

%T 271,277,281,283,293,361,403,407,411,413,415,417,422,427,437,445,446,

%U 447,451,453,454,458,466,469,471,473,478,481,482,485,489,493,497,603,604

%N Number of divisors = first digit.

%H Harvey P. Dale, <a href="/A034843/b034843.txt">Table of n, a(n) for n = 1..1000</a>

%t Select[Range[700],DivisorSigma[0,#]==IntegerDigits[#][[1]]&] (* _Harvey P. Dale_, Aug 04 2021 *)

%K nonn,base

%O 1,2

%A _Erich Friedman_

%E 1 prepended. - _R. J. Mathar_, Jul 26 2015