A106095 Primes with maximal digit = 7.

7, 17, 37, 47, 67, 71, 73, 107, 127, 137, 157, 167, 173, 227, 257, 271, 277, 307, 317, 337, 347, 367, 373, 457, 467, 547, 557, 571, 577, 607, 617, 647, 673, 677, 701, 727, 733, 743, 751, 757, 761, 773, 1117, 1171, 1217, 1237, 1277, 1307, 1327, 1367

Offset

1,1

Links

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

Maple

Res:= 7:
A:= {7}: B:= {$1..6}:
for d from 2 to 4 do
  A:= {seq(seq(10*a+i, i=0..7), a=A), seq(10*b+7, b=B)}:
  B:= {seq(seq(10*b+i, i=0..6), b=B)}:
  Res:= Res, op(sort(convert(select(isprime, A), list)))
od:
Res; # Robert Israel, Jan 01 2019

Mathematica

Select[Prime[Range[200]], Max[IntegerDigits[ # ]]==7&]

Crossrefs

Sequence in context: A090652 A062675 A257668 * A153319 A030432 A090147

Adjacent sequences: A106092 A106093 A106094 * A106096 A106097 A106098

Keyword

nonn,base

Author

Zak Seidov, May 07 2005

Status

approved