OFFSET
1,1
COMMENTS
p = q-k^4+k^2 where p and q are lesser of twin primes and p < q.
May be connected with the twin prime conjecture (see link).
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
Eric Weisstein's World of Mathematics, Twin Prime Conjecture
EXAMPLE
5 = 2^2+1 and 17 = 2^4+1; 5 and 17 are lesser of twin primes;
41 = 4^2+25 and 281 = 4^4+25; 41 and 281 are lesser of twin primes.
MAPLE
filter:= proc(p) local s, k;
if not(isprime(p) and isprime(p+2)) then return false fi;
for k from 2 do
s:= p - k^2;
if s < 0 then return false fi;
if isprime(s+k^4) and isprime(s+k^4+2) then return true fi;
od
end proc:
select(filter, [seq(i, i=5..2000, 6)]); # Robert Israel, Sep 15 2024
PROG
(PARI) {m=42; v=[]; for(k=2, m, for(s=1, (m+1)^2-1, if((p=k^2+s)<m^2&&isprime(p)&&isprime(p+2)&&(q=k^4+s)>p&&isprime(q)&&isprime(q+2), v=concat(v, p)))); v=listsort(List(v), 1); for(j=1, #v, print1(v[j], ", "))} /* Klaus Brockhaus, Mar 09 2007 */
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Tomas Xordan, Mar 07 2007
EXTENSIONS
Edited and checked by Klaus Brockhaus, Mar 09 2007
Definition corrected by Robert Israel, Sep 15 2024
STATUS
approved