%I #20 Sep 08 2022 08:45:41
%S 1,1,4,6,10,12,16,18,22,28,30,36,40,42,46,52,58,60,66,70,72,78,82,88,
%T 96,100,102,106,108,112,126,130,136,138,148,150,156,162,166,172,178,
%U 180,190,192,196,198,210,222,226,228,232,238,240,250,256,262,268,270,276,280,282
%N Largest nonprime < n-th prime.
%C Essentially the same as A006093.
%H Marius A. Burtea, <a href="/A156037/b156037.txt">Table of n, a(n) for n = 1..10453</a>
%e a(1)=1 (1 < 2); a(2)=1 (1 < 3); a(3)=4 (4 < 5).
%p 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
%t Join[{1, 1}, Prime@Range[3, 65] - 1] (* _Harvey P. Dale_, Jan 23 2011 *)
%o (Magma) [1,1] cat [ p-1: p in PrimesInInterval(4,300)]; // _Marius A. Burtea_, May 06 2019
%Y Cf. A006093, A165972.
%K nonn
%O 1,3
%A _Juri-Stepan Gerasimov_, Oct 30 2009
%E 166 inserted by _R. J. Mathar_, Oct 31 2009