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

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A056710 Near-repdigit primes such that all digits are equal except for an end-digit. 3
113, 199, 211, 223, 227, 229, 233, 277, 311, 331, 337, 433, 443, 449, 499, 557, 577, 599, 661, 677, 733, 773, 811, 877, 881, 883, 887, 911, 977, 991, 997, 1117, 1777, 1999, 2111, 2221, 2333, 2777, 2999, 3331, 4111, 4441, 4447, 4999, 5333, 5557, 6661, 7333, 8111, 8887, 8999 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

LINKS

Giovanni Resta, Table of n, a(n) for n = 1..496 (terms < 10^1000)

MATHEMATICA

Select[ Range[ 101, 10^4, 2 ], PrimeQ[ # ] && (Length[ Union[ Take[ RealDigits[ # ][ [ 1 ] ], {1, -2} ] ] ] == 1 || Length[ Union[ Take[ RealDigits[ # ][ [ 1 ] ], {2, -1} ] ] ] == 1) & ]

dig[n_] := Sort@Select[Flatten@Table[{d*10^(n - 1) + e*(10^(n - 1) - 1)/9, e + 10 d*(10^(n-1)- 1)/9}, {e, {1, 3, 7, 9}}, {d, Delete[Range@9, e]}], PrimeQ]; Join @@ dig /@ Range[3, 100] (* terms < 10^100, Giovanni Resta, Apr 08 2013 *)

CROSSREFS

Sequence in context: A084951 A151947 A087703 * A124585 A173594 A074982

Adjacent sequences:  A056707 A056708 A056709 * A056711 A056712 A056713

KEYWORD

nonn,base

AUTHOR

Robert G. Wilson v, Aug 10 2000

EXTENSIONS

Four missing terms added by Giovanni Resta, Apr 07 2013

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 April 22 22:16 EDT 2019. Contains 322378 sequences. (Running on oeis4.)