OFFSET
1,1
EXAMPLE
11 is in the sequence because 11 is the largest prime < 12 = 6*2.
MATHEMATICA
PrevPrim[n_] := Block[{k = n - 1}, While[ !PrimeQ[k], k-- ]; k]; Union[ Table[ PrevPrim[6n], {n, 65}]] (* Robert G. Wilson v, May 21 2005 *)
NextPrime[#, -1]&/@(6*Range[100])//Union (* Harvey P. Dale, Sep 23 2017 *)
CROSSREFS
KEYWORD
easy,nonn
AUTHOR
Giovanni Teofilatto, May 03 2005
EXTENSIONS
Corrected and extended by Robert G. Wilson v, May 21 2005
Edited, corrected and extended by Ray Chandler, Oct 17 2006
STATUS
approved