%I A007459 M0660
%S A007459 2,3,5,7,11,13,19,23,29,31,37,43,47,53,59,61,67,71,79,101,107,127,131,
%T A007459 139,149,151,157,173,181,191,197,199,211,223,229,263,269,277,283,311,317,
%U A007459 331,347,349,367,373,383,397,419,421,431,461,463,491,509,523,547,557,571
%N A007459 Higgs' primes: a(n+1) = next prime such that a(n+1)-1 | (a(1)...a(n))^2.
%D A007459 S. Burris and S. Lee, Tarski's high school identities, Amer. Math. Monthly 
               100 (1993), 231-236.
%D A007459 N. J. A. Sloane and Simon Plouffe, The Encyclopedia of Integer Sequences, 
               Academic Press, 1995 (includes this sequence).
%H A007459 T. D. Noe, <a href="b007459.txt">Table of n, a(n) for n=1..1000</a>
%t A007459 NextPrime[ n_Integer ] := Module[ {k = n + 1}, While[ ! PrimeQ[ k ], 
               k++ ]; Return[ k ] ]; f[ n_List ] := (a = n; b = Apply[ Times, a^2 
               ]; d = NextPrime[ a[ [ -1 ] ] ]; While[ ! IntegerQ[ b/(d - 1) ] || 
               d > b, d = NextPrime[ d ] ]; AppendTo[ a, d ]; Return[ a ]); Nest[ 
               f, {2}, 75 ]
%Y A007459 Cf. A057447, A057448 & A057459.
%Y A007459 Sequence in context: A095074 A042987 A097375 this_sequence A129944 A152900 
               A079151
%Y A007459 Adjacent sequences: A007456 A007457 A007458 this_sequence A007460 A007461 
               A007462
%K A007459 nonn,nice
%O A007459 1,1
%A A007459 N. J. A. Sloane (njas(AT)research.att.com).
%E A007459 More terms from David W. Wilson (davidwwilson(AT)comcast.net)