|
| |
|
|
A115366
|
|
a(n) = the number of values of k <= 10^n such that sqrt(k*(k+1)*(k+2)*(k+3)+1)) is prime.
|
|
0
| | |
|
|
|
OFFSET
| 1,2
|
|
|
COMMENTS
| sqrt(k*(k+1)*(k+2)*(k+3)+1) = k^2+3*k+1.
a(n)/A006880(n) ~= 1.78, 1.78, 1.7769, 1.7752, 1.7738, 1.7731. Conjecture: a(n)/A006880(n) -> 1.77...
|
|
|
MATHEMATICA
| fQ[x_] := PrimeQ(AT) Round(AT) Sqrt[x(x + 1)(x + 2)(x + 3) + 1]; c = k = 0; Do[ While[k <= 10^n, If[ fQ(AT)k, c++ ]; k++ ]; Print(AT)c, {n, 0, 9}] (from Robert G. Wilson v (rgwv(at)rgwv.com), Apr 17 2006).
c = 0; k = 1; Do[ While[k <= 10^n, If[ PrimeQ@ Round@ Sqrt[k(k + 1)(k + 2)(k + 3) + 1], c++ ]; k++ ]; Print@c, {n, 0, 9}] (from Robert G. Wilson v (rgwv(at)rgwv.com), May 01 2006)
|
|
|
PROG
| (PARI) g(n)= { for(j=0, n, c=0; for(x=0, 10^j, y=round(sqrt(x*(x+1)*(x+2)*(x+3)+1)); if(ispseudoprime(y), c++)); print1(c", ") ) }
|
|
|
CROSSREFS
| Cf. A006880.
Sequence in context: A006974 A171480 A007681 * A188210 A002462 A034814
Adjacent sequences: A115363 A115364 A115365 * A115367 A115368 A115369
|
|
|
KEYWORD
| nonn
|
|
|
AUTHOR
| Cino Hilliard (hillcino368(AT)gmail.com), Mar 07 2006
|
|
|
EXTENSIONS
| Edited by Don Reble (djr(AT)nk.ca), Apr 24 2006
|
| |
|
|
