|
| |
|
|
A161620
|
|
Primorial numbers of the form n^2 + n for some integer n.
|
|
0
| | |
|
|
|
OFFSET
| 1,1
|
|
|
COMMENTS
| Primorial numbers m such that 4m+1 is a square.
Intersection of the sequences A002110 and A002378.
If it exists, a(6) > A034386(10^11). [From Max Alekseyev (maxale(AT)gmail.com), Oct 23 2011]
|
|
|
LINKS
| C. Nelson, D. E. Penney, and C. Pomerance (1974) 714 and 715, J. Recreational Mathematics 7(2), 87-89.
|
|
|
EXAMPLE
| 2 = 1*2 = 2
2*3 = 2*3 = 6
2*3*5 = 5*6 = 30
2*3*5*7 = 14*15 = 210
2*3*5*7*11*13*17 = 714*715 = 510510
|
|
|
MATHEMATICA
| p=1; Do[p=p*Prime[c]; f=Floor[Sqrt[p]]; If[p==f*(f+1), Print[p]], {c, 1000}]
|
|
|
PROG
| (PARI) N=10^8; si=30; q=vector(si, i, nextprime(i*N)); a=vector(si, i, 1); forprime(p=2, N, for(i=1, si, a[i]=(a[i]*p)%q[i]); v=1; for(i=1, si, if(kronecker(4*a[i]+1, q[i])==-1, v=0; break)); if(v, T=1; forprime(r=2, p, T*=r); print1(T", ")))
|
|
|
CROSSREFS
| Cf. A002110, A002378.
Sequence in context: A077176 A101178 A091456 * A205569 A108204 A088160
Adjacent sequences: A161617 A161618 A161619 * A161621 A161622 A161623
|
|
|
KEYWORD
| nonn,hard,more
|
|
|
AUTHOR
| Daniel Tisdale (daniel6874(AT)gmail.com), Jun 14 2009
|
|
|
EXTENSIONS
| Edited by Hans Havermann (gladhobo(AT)teksavvy.com), Dec 02 2010
Edited by Max Alekseyev (maxale(AT)gmail.com), Dec 03 2010
Edited by Robert Gerbicz (robert.gerbicz(AT)gmail.com), Dec 04 2010
|
| |
|
|
