%I #10 Sep 08 2017 03:07:50
%S 1,3,5,6,7,9,11,12,13,15,17,18,19,21,22,23,24,25,27,29,30,31,32,33,35,
%T 36,37,39,41,42,43,45,46,47,48,49,51,52,53,54,55,57,59,60,61,62,63,65,
%U 66,67,69,71,72,73,74,75,77,78,79,81,82,83,84,85,87,88,89,90,91,92,93
%N The n-th composite minus 3.
%H G. C. Greubel, <a href="/A164028/b164028.txt">Table of n, a(n) for n = 1..5000</a>
%F a(n) = A002808(n) - 3.
%e a(1)=4-3=1. a(2)=6-3=3. a(3)=8-3=5. a(4)=6(=9-3).
%t Select[Range[100],CompositeQ]-3 (* _Harvey P. Dale_, Oct 04 2015 *)
%o (PARI) lista(nn) = forcomposite(n=1, nn, print1(n-3, ", ")); \\ _Michel Marcus_, Sep 08 2017
%Y Cf. A002808, A040976.
%K nonn,easy
%O 1,2
%A _Juri-Stepan Gerasimov_, Aug 08 2009
%E Entries checked by _R. J. Mathar_, Aug 11 2009
|