%I A031157
%S A031157 3,7,13,31,37,43,67,73,79,127,151,163,193,211,223,241,283,307,331,
%T A031157 349,367,409,421,433,463,487,541,577,601,613,619,631,643,673,727,
%U A031157 739,769,787,823,883,937,991,997,1009,1021,1039,1087,1093,1117,1123
%N A031157 Numbers that are both lucky and prime.
%C A031157 A010051(a(n))*A145649(a(n)) = 1. [From Reinhard Zumkeller (renhard.zumkeller(AT)gmail.com), 
               Oct 19 2008]
%H A031157 Wikipedia, <a href="http://en.wikipedia.org/wiki/Lucky_prime">Lucky prime</
               a>
%t A031157 lst = Range[1, 1248, 2]; i = 2; While[ i <= (len = Length@lst) && (k 
               = lst[[i]]) <= len, lst = Drop[lst, {k, len, k}]; i++ ]; Select[lst, 
               PrimeQ@# &] (from Robert G. Wilson v (rgwv(at)rgwv.com), May 12 2006)
%Y A031157 Cf. A000959.
%Y A031157 Sequence in context: A062700 A136060 A023227 this_sequence A049488 A136051 
               A100750
%Y A031157 Adjacent sequences: A031154 A031155 A031156 this_sequence A031158 A031159 
               A031160
%K A031157 nonn
%O A031157 1,1
%A A031157 Patrick De Geest (pdg(AT)worldofnumbers.com)