OFFSET
1,2
COMMENTS
a(2n) - a(2n-1) = prime(n) for n > 2.
MAPLE
p:=[]:c:=[]:a:=[1]:for n from 2 to 60 do for i from 2 do m:=a[n-1]+i: if n mod 2=0 then if isprime(i) and not isprime(m) and not member(i, p) then p:=[op(p), i]: a:=[op(a), m]: break fi else if isprime(m) and not isprime(i) and not member(i, c) then c:=[op(c), i]: a:=[op(a), m]: break fi fi od od: op(a); # C. Ronaldo
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Amarnath Murthy, Nov 19 2003
EXTENSIONS
More terms from C. Ronaldo (aga_new_ac(AT)hotmail.com), Dec 26 2004
STATUS
approved