%I #7 Mar 30 2012 18:38:28
%S 101,103,107,109,1033,10111,10333,101111,103333,107777,10333333,
%T 101111111,103333333,1033333333,10999999999,101111111111,
%U 1099999999999,10333333333333,101111111111111111,1099999999999999999,10333333333333333333
%N Primes of the form identical digits preceded by a 10.
%H Vincenzo Librandi, <a href="/A201965/b201965.txt">Table of n, a(n) for n = 1..37</a>
%t Select[FromDigits/@Flatten[Table[PadRight[{10},i,#]&/@{1,2,3,4,5,6,7,8,9},{i,2,200}],1],PrimeQ[#]&]
%K nonn,base,less
%O 1,1
%A _Vincenzo Librandi_, Dec 10 2011
|