1,1
Select[ Range[ 400 ], (Count[ IntegerDigits[ #, 4 ], 1 ]==3)& ]
Sequence in context: A123779 A123839 A043339 this_sequence A045124 A045100 A038471
Adjacent sequences: A023709 A023710 A023711 this_sequence A023713 A023714 A023715
nonn,base,easy
Olivier Gerard (olivier.gerard(AT)gmail.com)
Search completed in 0.002 seconds