OFFSET
1,1
COMMENTS
Contains every prime > 3 infinitely many times, as A000005(p^k)+A001222(p^k)=2*k+1 for prime p. - Robert Israel, Sep 30 2020
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(1) = 2+3 = 5 (for 1st composite=4); a(2) = 3+4 = 7 (for 3rd composite=8).
MAPLE
f:= proc(n) local F, x;
if isprime(n) then return NULL fi;
F:= ifactors(n)[2];
x:= add(t[2], t=F) + mul(1+t[2], t=F);
if isprime(x) then x fi
end proc:
map(f, [$4..1000]); # Robert Israel, Sep 30 2020
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Oct 28 2009
EXTENSIONS
Corrected and extended by R. J. Mathar, Oct 29 2009
STATUS
approved