OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
MAPLE
N:= 10^4: # to get all a(n) where A006881(n) < N
Primes:= select(isprime, [2, seq(2*k+1, k=1..floor(N/2))]):
L:= sort(convert({seq(seq(p*q, q=Primes[1..ListTools:-BinaryPlace(Primes, N/p)]), p=Primes)} minus {seq(p^2, p=Primes)}, list)):
A168472:= ListTools:-PartialSums(L):
select(isprime, A168472); # Robert Israel, Mar 20 2019
MATHEMATICA
f[n_]:=Last/@FactorInteger[n]=={1, 1}; s=0; lst={}; Do[If[f[n], If[PrimeQ[s+=n], AppendTo[lst, s]]], {n, 7!}]; lst
With[{nn=50}, Select[Accumulate[Union[Times@@@Subsets[Prime[Range[2nn]], {2}]]], PrimeQ, nn]] (* Harvey P. Dale, Aug 08 2013 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Nov 26 2009
STATUS
approved