login
A201965
Primes of the form identical digits preceded by a 10.
1
101, 103, 107, 109, 1033, 10111, 10333, 101111, 103333, 107777, 10333333, 101111111, 103333333, 1033333333, 10999999999, 101111111111, 1099999999999, 10333333333333, 101111111111111111, 1099999999999999999, 10333333333333333333
OFFSET
1,1
LINKS
MATHEMATICA
Select[FromDigits/@Flatten[Table[PadRight[{10}, i, #]&/@{1, 2, 3, 4, 5, 6, 7, 8, 9}, {i, 2, 200}], 1], PrimeQ[#]&]
CROSSREFS
Sequence in context: A119680 A329737 A166571 * A318157 A117837 A176929
KEYWORD
nonn,base,less
AUTHOR
Vincenzo Librandi, Dec 10 2011
STATUS
approved