|
| |
|
|
A096476
|
|
b[n]=A096475[n] is the smallest (lesser twin) prime such that A096475(n)=2n. For terms[=a(n)=A096476(n)] of the present sequence both a(n) and 2n+a(n) are primes, furthermore a[n]=prime[A096475(n)] i.e. PrimePi[a(n)]=A094475(n); also a[n]+2n is not necessarily the next prime after a[n].
|
|
2
|
|
|
|
5, 59, 31, 179, 353, 547, 109, 4133, 6841, 773, 9293, 3733, 10559, 17627, 108643, 9973, 32261, 3259, 22811, 18617, 65731, 60821, 156371, 404029, 55733, 40637, 540619, 192677, 290897, 118297, 693877, 406883, 812527, 264659, 1022303, 928471
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
|
OFFSET
|
3,1
|
|
|
LINKS
|
Table of n, a(n) for n=3..38.
|
|
|
FORMULA
|
a[n]=A000040[A096475(n)]
|
|
|
EXAMPLE
|
a[6]=179 is a prime and 2.6+179=12+179=191 is also a prime, while pi[191]=43,pi[179]=41 are twin primes and 179 is the 6th term of A096475 (offset=3!).
|
|
|
MATHEMATICA
|
{ta=Table[0, {1300}], tb=Table[0, {1300}], tc=Table[0, {1300}], u=1}; Do[s=Prime[n+1]-Prime[n]; If[Equal[s, 2], ta[[u]]=Prime[Prime[n+1]]-Prime[Prime[n]]; tb[[u]]=n; tc[[u]]=Prime[n]; td[[u]]=Prime[Prime[n]]; u=u+1], {n, 1, 10000}]; td
|
|
|
CROSSREFS
|
Cf. A001359, A096474, A096475.
Sequence in context: A195947 A156326 A001624 * A158694 A015994 A222563
Adjacent sequences: A096473 A096474 A096475 * A096477 A096478 A096479
|
|
|
KEYWORD
|
nonn
|
|
|
AUTHOR
|
Labos E. (labos(AT)ana.sote.hu), Jun 23 2004
|
|
|
STATUS
|
approved
|
| |
|
|
