OFFSET
1,3
COMMENTS
Essentially the same as A006093.
LINKS
Marius A. Burtea, Table of n, a(n) for n = 1..10453
EXAMPLE
a(1)=1 (1 < 2); a(2)=1 (1 < 3); a(3)=4 (4 < 5).
MAPLE
A156037 := proc(n) local a; for a from ithprime(n)-1 by -1 do if not isprime(a) then return a ; end if; end do: end proc: seq(A156037(n), n=1..80) ; # R. J. Mathar, Oct 30 2009
MATHEMATICA
Join[{1, 1}, Prime@Range[3, 65] - 1] (* Harvey P. Dale, Jan 23 2011 *)
PROG
(Magma) [1, 1] cat [ p-1: p in PrimesInInterval(4, 300)]; // Marius A. Burtea, May 06 2019
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Oct 30 2009
EXTENSIONS
166 inserted by R. J. Mathar, Oct 31 2009
STATUS
approved