%I A110406
%S A110406 11,3,13,23,7,17,37,47,67,97,107,19,29,59,79,89,109,139,149,179,11,211,
%T A110406 311,811,911,1511,1811,2011,2111,2311,2411,13,113,313,613,1013,1213,
%U A110406 1613,1913,2113,2213,2713,3313,3413,17,317,617,1117,1217,2017,2417,2617
%N A110406 List of n primes ending in n, where n == 1, 3, 7 or 9 (mod 10).
%e A110406 Terms corresponding to 7 are 7, 17, 37, 47, 67, 97, 127. 13 occurs for 
               3 as well as for 13.
%t A110406 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 *)
%Y A110406 Cf. A089779.
%Y A110406 Sequence in context: A067063 A075023 A088262 this_sequence A110434 A110798 
               A088653
%Y A110406 Adjacent sequences: A110403 A110404 A110405 this_sequence A110407 A110408 
               A110409
%K A110406 base,easy,nonn
%O A110406 0,1
%A A110406 Amarnath Murthy (amarnath_murthy(AT)yahoo.com), Jul 30 2005
%E A110406 Corrected and extended by Robert G. Wilson v (rgwv(at)rgwv.com), Jul 
               30 2005