%I A133410
%S A133410 2,11,17,23,29,37,41,47,53,59,67,71,79,83,89,97,101,107,113,127,127,131,
%T A133410 137,149,149,157,163,167,173,179,191,191,197,211,211,223,223,227,233,
%U A133410 239,251,251,257,263,269,277,281,293,293,307,307,311,317,331,331,337
%N A133410 Least prime p such that p-6*n is prime.
%t A133410 a={};Do[i=6*n+1; While[Not[PrimeQ[i]&&PrimeQ[i-6*n]],i++ ];AppendTo[a,
               i],{n,0,60}]; a - Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), 
               Nov 26 2007
%Y A133410 Cf. A133387.
%Y A133410 Sequence in context: A038927 A105877 A018420 this_sequence A156829 A105840 
               A060427
%Y A133410 Adjacent sequences: A133407 A133408 A133409 this_sequence A133411 A133412 
               A133413
%K A133410 nonn
%O A133410 0,1
%A A133410 Pierre CAMI (pierrecami(AT)tele2.fr), Nov 25 2007
%E A133410 More terms from Stefan Steinerberger (stefan.steinerberger(AT)gmail.com), 
               Nov 26 2007