[go: up one dir, main page]

login

Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).

Revision History for A108126 (Bold, blue-underlined text is an addition; faded, red-underlined text is a deletion.)

Showing all changes.
Maximal number of squares of side 1 in an ellipse of semiaxes n,2n.
(history; published version)
#4 by N. J. A. Sloane at Sat Nov 10 03:00:00 EST 2007
NAME

Primes p such that p + 2^k is composite for all k >= 0Maximal number of squares of side 1 in an ellipse of semiaxes n,2n.

DATA

2131, 7013, 8543, 10711, 140333, 17, 43, 83, 137, 203, 279, 369, 471, 587, 715, 857, 1011, 1175, 1351, 1541, 1743, 1961, 2191, 2429, 2683, 2949, 3227, 3523, 3829, 4137, 4469, 4809, 5167, 5539, 5913, 6295, 6701, 7127, 7555, 7999, 8449, 8909, 9395, 9889, 10395, 10915

COMMENTS

The example given suggests that these values are merely conjectures. - njas, Jun 30 2005

For small n there exists a k such that prime(n) + 2^k is prime however as n becomes large there are primes prime(n) that "defy" finding a k such that prime(n) + 2^k is prime. Defiant primes base 4 are much more frequent. Conjecture: The number of defiant primes base 2 is infinite.

EXAMPLE

For p = 2131 p + 2^k is not prime for all k < 20000

a(1)=3 since you cannot pack more than 3 unit-side squares in an ellipse of semiaxes 1,2

MATHEMATICA

f[n_] := 2 Sum[IntegerPart[2 Sqrt[4 n^2 - (h - 1/2)^2]],

{h, 2, 2 n}] + IntegerPart[2 Sqrt[4 n^2 - 1/4]]; Array[f, 42]

PROG

(PARI) pplus2ton(n, m, b) = \defiant primes base b { local(k, s, p, y, flag); s=0; forprime(p=2, n, flag=1; for(k=0, m, y=p+b^k; if(ispseudoprime(y), \ print1(k, ", "); s++; flag=0; break) ); if(flag, print(p)); \search for defiant primes. ); print(); print(s); }

CROSSREFS

Similar to A125228.

KEYWORD

nonn,new

easy,nonn

AUTHOR

Cino Hilliard Pasquale CUTOLO (hillcino368p.cutolo(AT)gmailinwind.comit), Jun 27 200514 2007

#3 by N. J. A. Sloane at Wed Dec 06 03:00:00 EST 2006
KEYWORD

nonn,new

nonn

AUTHOR

Cino Hilliard (hillcino368(AT)hotmailgmail.com), Jun 27 2005

#2 by N. J. A. Sloane at Tue Jan 24 03:00:00 EST 2006
PROG

(PARI) pplus2ton(n, m, b) = \defiant primes base b { local(k, s, p, y, flag); s=0; forprime(p=2, n, flag=1; for(k=0, m, y=p+b^k; if(ispseudoprime(y), \ print1(k, ", "); s++; flag=0; break) ); if(flag, print(p)); \search for defiant primes. ) ; print(); print(s); }

KEYWORD

nonn,new

nonn

#1 by N. J. A. Sloane at Tue Jul 19 03:00:00 EDT 2005
NAME

Primes p such that p + 2^k is composite for all k >= 0.

DATA

2131, 7013, 8543, 10711, 14033

OFFSET

1,1

COMMENTS

The example given suggests that these values are merely conjectures. - njas, Jun 30 2005

For small n there exists a k such that prime(n) + 2^k is prime however as n becomes large there are primes prime(n) that "defy" finding a k such that prime(n) + 2^k is prime. Defiant primes base 4 are much more frequent. Conjecture: The number of defiant primes base 2 is infinite.

EXAMPLE

For p = 2131 p + 2^k is not prime for all k < 20000

PROG

(PARI) pplus2ton(n, m, b) = \defiant primes base b { local(k, s, p, y, flag); s=0; forprime(p=2, n, flag=1; for(k=0, m, y=p+b^k; if(ispseudoprime(y), \ print1(k, ", "); s++; flag=0; break) ); if(flag, print(p)); \search for defiant primes. ) ; print(); print(s); }

KEYWORD

nonn

AUTHOR

Cino Hilliard (hillcino368(AT)hotmail.com), Jun 27 2005

STATUS

approved