

A020482


Greatest p with p, q both prime, p+q = 2n.


24



2, 3, 5, 7, 7, 11, 13, 13, 17, 19, 19, 23, 23, 23, 29, 31, 31, 31, 37, 37, 41, 43, 43, 47, 47, 47, 53, 53, 53, 59, 61, 61, 61, 67, 67, 71, 73, 73, 73, 79, 79, 83, 83, 83, 89, 89, 89, 79, 97, 97, 101, 103, 103, 107, 109, 109, 113, 113, 113, 109, 113, 113, 109, 127, 127, 131, 131
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

2,1


COMMENTS

a(n) = A171637(n,A035026(n)).  Reinhard Zumkeller, Mar 03 2014


LINKS

H. J. Smith, Table of n, a(n) for n = 2..20000


MATHEMATICA

a[n_] := {p, q} /. {ToRules @ Reduce[p+q == 2*n, {p, q}, Primes]} // Max; Table[a[n], {n, 2, 100}] (* JeanFrançois Alcover, Dec 19 2013 *)


PROG

(Haskell)
a020482 = last . a171637_row  Reinhard Zumkeller, Mar 03 2014
(PARI) a(n)=forprime(q=2, n, if(isprime(2*nq), return(2*nq))) \\ Charles R Greathouse IV, Apr 28 2015


CROSSREFS

Cf. A060264, A020481.
Sequence in context: A195882 A156900 A039734 * A060308 A224911 A064142
Adjacent sequences: A020479 A020480 A020481 * A020483 A020484 A020485


KEYWORD

nonn


AUTHOR

David W. Wilson


STATUS

approved



