A277966 Numbers whose largest decimal digit is 4.

4, 14, 24, 34, 40, 41, 42, 43, 44, 104, 114, 124, 134, 140, 141, 142, 143, 144, 204, 214, 224, 234, 240, 241, 242, 243, 244, 304, 314, 324, 334, 340, 341, 342, 343, 344, 400, 401, 402, 403, 404, 410, 411, 412, 413, 414, 420, 421, 422, 423, 424, 430, 431, 432

Offset: 1

Author

Colin Barker, Nov 06 2016

Keywords

• nonn
• base

Comments

Number of terms less than 10^n is 5^n-4^n. - Chai Wah Wu, Nov 06 2016

Links

• Colin Barker, Table of n, a(n) for n = 1..1000

Crossrefs

Cf. A007088, A277964, A277965.

Programs

GAP

Filtered([1..450],n->Maximum(ListOfDigits(n))=4); # Muniru A Asiru, Mar 01 2019

Mathematica

A277966Q = Max[IntegerDigits[#]] == 4 &; Select[Range[500], A277966Q] (* JungHwan Min, Nov 06 2016 *)
Select[Range[500],Max[IntegerDigits[#]]==4&] (* Harvey P. Dale, May 05 2019 *)

PARI

L=List(); for(n=1, 10000, if(vecmax(digits(n))==4, listput(L, n))); Vec(L)