|
%I #8 Mar 31 2012 12:38:26
%S 1,8,9,46,172,1188,4708,28611,480644,785709
%N Integers of the form "partial sum of the first k nonprimes divided by the k-th nonprime."
%C Integers of the form A051349(k)/A018252(k), generated by k= 1, 14, 16, 88, 334, 2345, 9328,... - R. J. Mathar, Oct 29 2011
%e (1 + 4 + 6 + 8 + 9 + 10 + 12 + 14 + 15 + 16 + 18 + 20 + 21 + 22)/22=8,
%e (1 + 4 + 6 + 8 + 9 + 10 + 12 + 14 + 15 + 16 + 18 + 20 + 21 + 22 + 24 + 25)/25=9
%e (1 + 4 + 6 + 8 + 9 + 10 + 12 + 14 + 15 + 16 + 18 + 20 + 21 + 22 + 24 + 25 + 26 + 27 + 28 + 30 + 32 + 33 + 34 + 35 + 36 + 38 + 39 + 40 + 42 + 44 + 45 + 46 + 48 + 49 + 50 + 51 + 52 + 54 + 55 + 56 + 57 + 58 + 60 + 62 + 63 + 64 + 65 + 66 + 68 + 69 + 70 + 72 + 74 + 75 + 76 + 77 + 78 + 80 + 81 + 82 + 84 + 85 + 86 + 87 + 88 + 90 + 91 + 92 + 93 + 94 + 95 + 96 + 98 + 99 + 100 + 102 + 104 + 105 + 106 + 108 + 110 + 111 + 112 + 114 + 115 + 116 + 117 + 118)/118=46
%t lst={};a=0;Do[If[ !PrimeQ[n],m=n;a+=m;If[IntegerQ[a/n]&&a!=n,AppendTo[lst,a/n]]],{n,5*9!}];lst
%Y Cf. A160758
%K nonn
%O 1,2
%A _Vladimir Joseph Stephan Orlovsky_, Sep 09 2009
|
