%I A100386
%S A100386 586951,1473257,4982941,13565441,24954141,25384714,26576686,32026196,
%T A100386 35797623,35953989,37972276,39048260,51755761,58769257,60682681,
%U A100386 71342703,77863117,80826231,84766857,89768134,98363506,110482826
%N A100386 Numbers n such that for m=n to n+9, A006530(m) decreases.
%C A100386 A006530(n) is the largest prime factor of n.
%e A100386 586951 is here because the largest prime factors of 586951..586960 are 
               586951,73369,21739,9467,1319,1193,1181,1091,677,29.
%p A100386 <<NumberTheory`NumberTheoryFunctions` {ta={{0}},tm=TimeUsed[]}; mxp[x_] 
               :=Max[PrimeFactorList[x]] Do[g=n;s1=mxp[n];s2=mxp[n+1];s3=mxp[n+2];
               s4=mxp[n+3];s5=mxp[n+4];s6=mxp[n+5]; s7=mxp[n+6];s8=mxp[n+7];s9=mxp[n+8];
               s10=mxp[n+9]; If[ !Greater[s2,s1]&&!Greater[s3,s2]&&!Greater[s4,s3]&& 
               !Greater[s5,s4]&&!Greater[s6,s5]&&!Greater[s7,s6]&& !Greater[s8,s7]&&!Greater[s9,
               s8]&&!Greater[s10,s9], Print[{n,{s1,s2,s3,s4,s5,s6,s7,s8,s9,s10}}]; 
               ta=Append[ta,n]],{n,586950,21977000}];ta
%Y A100386 Cf. A006530, A070087, A071870, A100385.
%Y A100386 Sequence in context: A119402 A050518 A104962 this_sequence A090871 A151435 
               A022257
%Y A100386 Adjacent sequences: A100383 A100384 A100385 this_sequence A100387 A100388 
               A100389
%K A100386 nonn
%O A100386 1,1
%A A100386 Labos E. (labos(AT)ana.sote.hu), Dec 09 2004
%E A100386 Edited by Don Reble (djr(AT)nk.ca), Jun 13 2007