|
%I #15 Jan 16 2017 03:23:50
%S 5,8,10,13,17,20,28,29,32,34,40,41,43,46,47,53,61,62,64,73,74,80,83,
%T 88,92,97,103,115,116,118,119,124,125,128,130,137,139,142,143,145,146,
%U 149,151,157,158,167,170,173,175,181,182,187,194,200,203,208,214
%N n prefixed by '9' and followed by '3' is a prime.
%H Matthew House, <a href="/A032717/b032717.txt">Table of n, a(n) for n = 1..10000</a>
%e 953 is prime, so 5 is a term.
%t Select[Range[250],PrimeQ[FromDigits[Join[{9},IntegerDigits[#],{3}]]]&] (* _Harvey P. Dale_, Jul 30 2013 *)
%K nonn,base
%O 1,1
%A _Patrick De Geest_, May 15 1998
%E Offset corrected by _Matthew House_, Jan 15 2017
|
