|
|
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
|
|
|
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
|
|
|
KEYWORD
|
base,easy,nonn
|
|
AUTHOR
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|