|
%I #10 Jun 14 2017 07:13:26
%S 29,59,79,139,179,199,239,379,419,439,479,599,619,719,739,839,1019,
%T 1039,1279,1319,1399,1499,1579,1979,1999,2239,2339,2399,2579,2699,
%U 2719,2819,2939,3079,3119,3319,3499,3539,3739,4019,4099,4219,4339,4639,4679
%N Primes q of form q = 10p + 9, where p is also prime.
%e 5419 = 541*10 + 9, 9 is appended to 541.
%t Select[10#+9&/@Prime[Range[100]],PrimeQ] (* _Harvey P. Dale_, Aug 20 2012 *)
%Y Cf. A005384, A005385.
%K nonn
%O 1,1
%A _Labos Elemer_, Jul 13 2000
|
