login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A106094 Primes with maximal digit = 8. 7

%I

%S 83,181,281,283,383,487,587,683,787,811,821,823,827,853,857,863,877,

%T 881,883,887,1087,1181,1187,1283,1381,1481,1483,1487,1583,1783,1787,

%U 1801,1811,1823,1831,1847,1861,1867,1871,1873,1877

%N Primes with maximal digit = 8.

%H Robert Israel, <a href="/A106094/b106094.txt">Table of n, a(n) for n = 1..10000</a>

%p Res:= NULL: count:= 0:

%p C:= {$1..8}: B:= {8}:

%p for d from 2 while count < 100 do

%p B:= map(t -> 10*t+8, C) union map(t -> seq(10*t+j,j=0..7),B);

%p C:= map(t -> seq(10*t+i,i=0..8), C);

%p V:= select(isprime,B);

%p count:= count + nops(V);

%p Res:= Res, op(sort(convert(V,list)));

%p od:

%p Res; # _Robert Israel_, May 01 2019

%t Select[Prime[Range[200]], Max[IntegerDigits[ # ]]==8&]

%K nonn,base

%O 1,1

%A _Zak Seidov_, May 07 2005

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 23 23:53 EDT 2022. Contains 353993 sequences. (Running on oeis4.)