login
This site is supported by donations to The OEIS Foundation.

 

Logo

Annual Appeal: Please make a donation to keep the OEIS running. In 2018 we replaced the server with a faster one, added 20000 new sequences, and reached 7000 citations (often saying "discovered thanks to the OEIS").
Other ways to donate

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A057447 Higgs' primes: a(n+1) = next prime such that a(n+1)-1 | (a(1)...a(n))^3. 7

%I

%S 2,3,5,7,11,13,19,23,29,31,37,41,43,47,53,59,61,67,71,73,79,83,89,101,

%T 107,109,127,131,139,149,151,157,167,173,179,181,191,197,199,211,223,

%U 229,233,251,263,269,271,277,281,283,293,311,313,317,331,347,349,359

%N Higgs' primes: a(n+1) = next prime such that a(n+1)-1 | (a(1)...a(n))^3.

%H T. D. Noe, <a href="/A057447/b057447.txt">Table of n, a(n) for n=1..1000</a>

%t NextPrime[ n_Integer ] := Module[ {k = n + 1}, While[ ! PrimeQ[ k ], k++ ]; Return[ k ] ]; f[ n_List ] := (a = n; b = Apply[ Times, a^3 ]; d = NextPrime[ a[[ -1 ]] ]; While[ ! IntegerQ[ b/(d - 1) ] && d < b+2, d = NextPrime[ d ] ]; AppendTo[ a, d ]; Return[ a ]); Nest[ f, {2}, 75 ]

%Y Cf. A007459 & A057448.

%K nonn

%O 1,1

%A _Robert G. Wilson v_, Sep 25 2000

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified December 16 14:50 EST 2018. Contains 318167 sequences. (Running on oeis4.)