Search: id:A060252
Results 1-1 of 1 results found.

%I A060252
%S A060252 17,23,97,37,59,173,193,199,157,149,223,373,199,431,317,277,331,823,
%T A060252 367,487,937,659,769,983,937,883,743,829,919,1217,1109,1031,1039,997,
%U A060252 1049,1103,1913,1319,1433,2837,1447,1451,1867,1699,1889,1709,1777,3761
%N A060252 Smallest prime that is the sum of n consecutive composite numbers.
%e A060252 a(4) = 97 because 22 + 24 + 25 + 26 = 97 and it is the least such prime.
%t A060252 f[n_Integer] := Block[ {k = n + PrimePi[n] + 1}, While[ k - PrimePi[k] 
               - 1 != n, k++ ]; k]; Do[c = Table[ f[k], {k, 1, n} ]; k = n + 1; 
               While[ p = Apply[ Plus, c]; ! PrimeQ[p], c = Delete[c, 1]; c = Append[ 
               c, f[k] ]; k++ ]; Print[p], {n, 2, 60} ]
%Y A060252 Sequence in context: A043142 A043922 A100473 this_sequence A127924 A108260 
               A062628
%Y A060252 Adjacent sequences: A060249 A060250 A060251 this_sequence A060253 A060254 
               A060255
%K A060252 nonn
%O A060252 2,1
%A A060252 Robert G. Wilson v (rgwv(AT)rgwv.com), Mar 22 2001

Search completed in 0.001 seconds