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
KEYWORD
nonn,base
AUTHOR
Robert G. Wilson v, Aug 10 2000
EXTENSIONS
Four missing terms added by Giovanni Resta, Apr 07 2013
STATUS
approved