login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A133387 Greatest prime p such that 6*n-p is prime. 2
3, 7, 13, 19, 23, 31, 37, 43, 47, 53, 61, 67, 73, 79, 83, 89, 97, 103, 109, 113, 113, 127, 131, 139, 139, 151, 157, 163, 167, 173, 181, 181, 193, 199, 199, 211, 211, 223, 229, 233, 241, 241, 251, 257, 263, 271, 277, 283, 283, 293, 293, 307, 313, 317, 317, 331 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
LINKS
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
Sequence in context: A038978 A291283 A336377 * A105399 A133261 A113911
KEYWORD
nonn,easy
AUTHOR
Pierre CAMI, Nov 23 2007
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 29 08:59 EDT 2024. Contains 371268 sequences. (Running on oeis4.)