%I A057459
%S A057459 2,3,5,7,11,23,31,43,47,67,71,139,211,283,311,331,431,463,659,683,691,
%T A057459 863,947,967,1291,1303,1319,1367,1427,1699,1867,1979,1987,2011,2111,
%U A057459 2131,2311,2531,3011,3083,4099,4423,4643,4691,4831,5171,5179,5683,5839
%N A057459 Modified Higg's primes, i.e. next prime such that a(n+1) | a(1) ... a(n) 
               and if none, first prime not listed.
%t A057459 NextPrime[ n_Integer ] := Module[ {k = n + 1}, While[ ! PrimeQ[ k ], 
               k++ ]; Return[ k ] ]; f[ n_List ] := (a = n; b = Apply[ Times, a 
               ]; p = NextPrime[ Sort[ a ][[ -1 ]] ]; While[ ! IntegerQ[ b/(p - 
               1) ] && p < b, p = NextPrime[ p ] ]; If[ p > b, p = 2; While[ Position[ 
               a, p ] != {}, p = NextPrime[ p ] ] ]; AppendTo[ a, p ]); Nest[ f, 
               {2}, 50 ]
%Y A057459 Cf. A007459.
%Y A057459 Sequence in context: A118721 A094318 A019344 this_sequence A068853 A158217 
               A030284
%Y A057459 Adjacent sequences: A057456 A057457 A057458 this_sequence A057460 A057461 
               A057462
%K A057459 nonn
%O A057459 1,1
%A A057459 Robert G. Wilson v (rgwv(AT)rgwv.com), Sep 26 2000