OFFSET
1,1
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
34 + 35 + 38 = 107, 51 + 55 + 57 = 163,..
MAPLE
N:= 5000: # to get terms where the three consecutive terms all < 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)):
select(isprime, [seq(L[i]+L[i+1]+L[i+2], i=1..nops(L)-2)]); # Robert Israel, Apr 29 2018
MATHEMATICA
f[n_]:=Last/@FactorInteger[n]=={1, 1}; a=6; b=10; lst={}; Do[If[f[n], p=a+b+n; If[PrimeQ[p], AppendTo[lst, p]]; a=b; b=n], {n, 13, 7!}]; lst
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Joseph Stephan Orlovsky, Nov 26 2009
STATUS
approved