%I A057633
%S A057633 5,389,2213,45013,73133,1319861,3250469,29662253,35677501,101341613,
%T A057633 12664911341,12664911341,124809839701,132932904029,1181960064853
%N A057633 Initial prime in first sequence of n primes congruent to 5 modulo 8.
%H A057633 J. K. Andersen, <a href="http://users.cybercity.dk/~dsl522332/math/congruent-primes.htm">
               Consecutive Congruent Primes</a>.
%e A057633 a(3) = 2213 because this number is the first in a sequence of 3 consecutive 
               primes all of the form 8n + 5.
%t A057633 NextPrime[ n_Integer ] := Module[ {k = n + 1}, While[ ! PrimeQ[ k ], 
               k++ ]; Return[ k ] ]; PrevPrime[ n_Integer ] := Module[ {k = n - 
               1}, While[ ! PrimeQ[ k ], k-- ]; Return[ k ] ]; p = 0; Do[ a = Table[ 
               -1, {n} ]; k = Max[ 1, p ]; While[ Union[ a ] != {5}, k = NextPrime[ 
               k ]; a = Take[ AppendTo[ a, Mod[ k, 8 ] ], -n ] ]; p = NestList[ 
               PrevPrime, k, n ]; Print[ p[[ -2 ] ] ]; p = p[[ -1 ] ], {n, 1, 9} 
               ]
%Y A057633 Sequence in context: A100474 A152438 A060506 this_sequence A006700 A079011 
               A128866
%Y A057633 Adjacent sequences: A057630 A057631 A057632 this_sequence A057634 A057635 
               A057636
%K A057633 nonn
%O A057633 1,1
%A A057633 Robert G. Wilson v (rgwv(AT)rgwv.com), Oct 10 2000
%E A057633 More terms from Jens Kruse Andersen (jens.k.a(AT)get2net.dk), May 28 
               2006