A277965 Numbers whose largest decimal digit is 3.

3, 13, 23, 30, 31, 32, 33, 103, 113, 123, 130, 131, 132, 133, 203, 213, 223, 230, 231, 232, 233, 300, 301, 302, 303, 310, 311, 312, 313, 320, 321, 322, 323, 330, 331, 332, 333, 1003, 1013, 1023, 1030, 1031, 1032, 1033, 1103, 1113, 1123, 1130, 1131, 1132

Offset: 1

Author

Colin Barker, Nov 06 2016

Keywords

• nonn
• base

Comments

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

Links

• Alois P. Heinz, Table of n, a(n) for n = 1..10000 (first 1000 terms from Colin Barker)

Crossrefs

Cf. A007088, A277964, A277966.

Cf. A005061 (4^n - 3^n).

Cf. A106099 (subsequence of primes).

Programs

GAP

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

Mathematica

A277965Q = Max[IntegerDigits[#]] == 3 &; Select[Range[1200], A277965Q] (* JungHwan Min, Nov 06 2016 *)

PARI

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