OFFSET
1,1
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..10000
MAPLE
A133387 := proc(n) local p: p:=prevprime(6*n): while(not isprime(6*n-p))do p:=prevprime(p): od: return p: end: seq(A133387(n), n=1..100); # Nathaniel Johnston, Jun 25 2011
MATHEMATICA
gpp[n_]:=Module[{p=NextPrime[6n, -1]}, While[!PrimeQ[6n-p], p=NextPrime[ p, -1]]; p]; Array[ gpp, 60] (* Harvey P. Dale, Jan 03 2024 *)
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Pierre CAMI, Nov 23 2007
STATUS
approved