login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A106099 Primes with maximal digit = 3. 4
3, 13, 23, 31, 103, 113, 131, 223, 233, 311, 313, 331, 1013, 1031, 1033, 1103, 1123, 1213, 1223, 1231, 1301, 1303, 1321, 2003, 2113, 2131, 2203, 2213, 2311, 2333, 3001, 3011, 3023, 3121, 3203, 3221, 3301, 3313, 3323, 3331 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

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

MAPLE

Res:= 3: count:= 1:

A:= {3}: B:= {$1..2}:

for d from 2 while count < 100 do

  A:= {seq(seq(10*a+i, i=0..3), a=A), seq(10*b+3, b=B)}:

  B:= {seq(seq(10*b+i, i=0..2), b=B)}:

  S:= sort(convert(select(isprime, A), list));

  count:= count + nops(S);

  Res:= Res, op(S);

od:

Res; # Robert Israel, Jan 01 2019

MATHEMATICA

Select[Prime[Range[600]], Max[IntegerDigits[ # ]]==3&]

CROSSREFS

Cf. A106093, A106094, A106095, A106096, A106097, A106098, A106100.

Sequence in context: A277590 A062667 A212525 * A273312 A017305 A018709

Adjacent sequences:  A106096 A106097 A106098 * A106100 A106101 A106102

KEYWORD

nonn,base

AUTHOR

Zak Seidov, May 07 2005

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified October 18 20:42 EDT 2019. Contains 328197 sequences. (Running on oeis4.)