A106103 -id:A106103 - cp's OEIS frontend

A284064 Numbers whose smallest decimal digit is 3.

3, 33, 34, 35, 36, 37, 38, 39, 43, 53, 63, 73, 83, 93, 333, 334, 335, 336, 337, 338, 339, 343, 344, 345, 346, 347, 348, 349, 353, 354, 355, 356, 357, 358, 359, 363, 364, 365, 366, 367, 368, 369, 373, 374, 375, 376, 377, 378, 379, 383, 384, 385, 386, 387, 388

Offset: 1

Jaroslav Krizek, Mar 19 2017

Numbers n such that A054054(n) = 3.

Prime terms are in A106103.

Robert Israel, Table of n, a(n) for n = 1..10000

Cf. Sequences of numbers whose smallest decimal digit is k (for k = 0..9): A011540 (k = 0), A284062 (k = 1), A284063 (k = 2), this sequence (k = 3), A284065 (k = 4), A284066 (k = 5), A284067 (k = 6), A284068 (k = 7), A284069 (k = 8), A002283 (k = 9).

[n: n in [1..100000] | Minimum(Setseq(Set(Sort(&cat[Intseq(n)])))) eq 3]

L[1]:= {3}: G[1]:= {$4..9}:
for n from 2 to 3 do L[n]:= map(t -> seq(10*t+j,j=3..9), L[n-1]) union map(t -> 10*t+3, G[n-1]);
  G[n]:= map(t -> seq(10*t+j,j=4..9), G[n-1])
od:
seq(op(sort(convert(L[n],list))),n=1..3); # Robert Israel, Mar 27 2017

With[{k = 3}, Select[Range@ 388, And[Total@ Take[#, k] == 0, #[[k + 1]] > 0] &@ RotateRight@ DigitCount@ # &]] (* Michael De Vlieger, Mar 20 2017 *) (* or *)
Select[Range[10000], Min[IntegerDigits[#]] == 3 &] (* faster, simpler, Giovanni Resta, Mar 22 2017 *)

isok(n) = vecmin(digits(n)) == 3; \\ Michel Marcus, Mar 25 2017

A212525 Primes containing a digit 3.

Original entry on oeis.org

3, 13, 23, 31, 37, 43, 53, 73, 83, 103, 113, 131, 137, 139, 163, 173, 193, 223, 233, 239, 263, 283, 293, 307, 311, 313, 317, 331, 337, 347, 349, 353, 359, 367, 373, 379, 383, 389, 397, 431, 433, 439, 443, 463, 503, 523, 563, 593, 613, 631, 643, 653, 673, 683

Offset: 1

Jaroslav Krizek, Jun 12 2012

Supersequence of A045709, A106103 and A106099. Subsequence of A011533 and A062667.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A045709 (primes with first digit 3), A011533 (numbers containing a digit 3), A062667 (numbers n such that every divisor of n (except 1) contains the digit 3), A106099 (primes with maximal digit = 3), A106103 (primes with minimal digit = 3), A038611 (primes not containing digit 3).

Select[Prime[Range[200]], MemberQ[IntegerDigits[#], 3] &] (* T. D. Noe, Jun 12 2012 *)

a(n) ~ n log n. - Charles R Greathouse IV, Nov 01 2022

cp's OEIS Frontend

A284064 Numbers whose smallest decimal digit is 3.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Magma

Maple

Mathematica

PARI