A110406 List of k primes ending in k, where k == 1, 3, 7 or 9 (mod 10).
11, 3, 13, 23, 7, 17, 37, 47, 67, 97, 107, 19, 29, 59, 79, 89, 109, 139, 149, 179, 11, 211, 311, 811, 911, 1511, 1811, 2011, 2111, 2311, 2411, 13, 113, 313, 613, 1013, 1213, 1613, 1913, 2113, 2213, 2713, 3313, 3413, 17, 317, 617, 1117, 1217, 2017, 2417, 2617
Offset: 1
Examples
Terms corresponding to 7 are 7, 17, 37, 47, 67, 97, 127. 13 occurs for 3 as well as for 13. 11; 3,13,23; 7,17,37,47,67,97,107; 19,29,59,79,89,109,139,149,179;
Programs
-
Mathematica
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 *)
Extensions
Corrected and extended by Robert G. Wilson v, Jul 30 2005
Comments