OFFSET
1,1
COMMENTS
EXAMPLE
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;
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,tabf
AUTHOR
Amarnath Murthy, Jul 30 2005
EXTENSIONS
Corrected and extended by Robert G. Wilson v, Jul 30 2005
STATUS
approved