%I #5 Dec 05 2013 19:57:02
%S 11,3,13,23,7,17,37,47,67,97,107,19,29,59,79,89,109,139,149,179,11,
%T 211,311,811,911,1511,1811,2011,2111,2311,2411,13,113,313,613,1013,
%U 1213,1613,1913,2113,2213,2713,3313,3413,17,317,617,1117,1217,2017,2417,2617
%N List of n primes ending in n, where n == 1, 3, 7 or 9 (mod 10).
%e Terms corresponding to 7 are 7, 17, 37, 47, 67, 97, 127. 13 occurs for 3 as well as for 13.
%t f[n_] := Take[ Select[p, Mod[ #, 10^Floor[ Log[10, n] + 1]] == n &], n]; p = Prime[ Range[10^5]]; lst = Select[ Range[1, 17, 2], Mod[ #, 10] != 5 &] (* _Robert G. Wilson v_ *)
%Y Cf. A089779.
%K base,easy,nonn
%O 0,1
%A _Amarnath Murthy_, Jul 30 2005
%E Corrected and extended by _Robert G. Wilson v_, Jul 30 2005
|