|
%I #11 Dec 05 2013 19:56:35
%S 11,31,71,331,991,3331,33331,99991,333331,3333331,9999991,33333331,
%T 555555555551,5555555555551,7777777777771,333333333333333331,
%U 1111111111111111111,77777777777777777771,11111111111111111111111
%N Primes of the form identical odd digits followed by a 1.
%H Vincenzo Librandi, <a href="/A089346/b089346.txt">Table of n, a(n) for n = 1..44</a>
%t Select[FromDigits/@Flatten[Table[Join[PadLeft[{n},i,n],{1}],{i,25},{n,1,9,2}], 1],PrimeQ] (* _Harvey P. Dale_, Jul 25 2011 *)
%Y Cf. A089345, A089347.
%K base,nonn
%O 1,1
%A _Amarnath Murthy_, Nov 05 2003
%E More terms from _Ray Chandler_, Nov 07 2003
|
