%I #8 Mar 09 2015 09:35:20
%S 1,2,8,10,11,16,17,19,22,23,29,31,43,46,50,52,58,64,68,73,74,76,82,83,
%T 86,94,95,97,100,103,104,107,110,113,118,128,133,137,140,142,155,161,
%U 167,170,176,190,193,197,202,203,205,214,217,223,224,226,230,235
%N n prefixed by '8' and followed by '1' is a prime.
%t Select[Range[250],PrimeQ[FromDigits[Join[{8}, IntegerDigits[#],{1}]]]&] (* _Harvey P. Dale_, Mar 24 2011 *)
%K nonn,base
%O 0,2
%A _Patrick De Geest_, May 15 1998
|