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

Author

Amarnath Murthy, Jul 30 2005

Keywords

• base
• easy
• nonn
• tabf

Comments

Lists the 1st entry in A030430, the first 3 entries of A030431, the first 7 entries of A030432, the first 9 entries of A030433, the first 11 entries of A167442 etc.

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;
		

Crossrefs

Cf. A089779, A088262.

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