|
%I #8 Dec 03 2021 15:44:56
%S 0,1,3,6,10,12,15,21,22,30,34,36,45,48,49,52,54,55,58,63,64,66,69,75,
%T 78,82,87,91,94,103,105,106,108,111,112,120,124,132,133,135,138,139,
%U 141,142,147,154,156,169,171,178,180,184,187,189,190,199,201,208,210
%N n prefixed by '7' and followed by '9' is a prime.
%H Harvey P. Dale, <a href="/A032732/b032732.txt">Table of n, a(n) for n = 0..1000</a>
%t Select[Range[0,300],PrimeQ[FromDigits[Join[{7},IntegerDigits[#],{9}]]]&] (* _Harvey P. Dale_, Dec 03 2021 *)
%K nonn,base
%O 0,3
%A _Patrick De Geest_, May 15 1998
|
