|
%I #7 Apr 06 2018 15:02:27
%S 7,12,20,30,44,62,85,115,150,194,247,310,386,477,583,710,858,1030,
%T 1232,1464,1734,2043,2400,2809,3270,3798,4396,5073,5838,6702,7675,
%U 8768,9997,11370,12905,14615,16528,18658,21024,23655,26570,29798,33372,37324,41685
%N a(1) = 7; a(n+1) = a(n)-th nonprime, where nonprimes begin at 1.
%t With[{np=Select[Range[100000],!PrimeQ[#]&]},NestList[np[[#]]&,7,50]] (* _Harvey P. Dale_, Apr 06 2018 *)
%K nonn
%O 1,1
%A _David W. Wilson_
|
