

A110406


List of n primes ending in n, where n == 1, 3, 7 or 9 (mod 10).


0



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
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

0,1


LINKS

Table of n, a(n) for n=0..51.


EXAMPLE

Terms corresponding to 7 are 7, 17, 37, 47, 67, 97, 127. 13 occurs for 3 as well as for 13.


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 *)


CROSSREFS

Cf. A089779.
Sequence in context: A205960 A302556 A088262 * A237454 A110434 A110798
Adjacent sequences: A110403 A110404 A110405 * A110407 A110408 A110409


KEYWORD

base,easy,nonn


AUTHOR

Amarnath Murthy, Jul 30 2005


EXTENSIONS

Corrected and extended by Robert G. Wilson v, Jul 30 2005


STATUS

approved



