|
%I
%S 2,5,8,11,15,18,20,25,27,29,31,36,38,42,45,49,51,54,58,62,64,67,69,71,
%T 74,76,79,81,84,89,92,95,97,99,104,106,111,113,117,122,126,130,133,
%U 135,137,140,143,145,147,149,151,154,157,159,162,167,170,172,175,179,181
%N a(n) = index of the n-th local maximum of A053707.
%C A053707(a(n)) = A088365(n).
%e The fourth local maximum of A053707 is 40 and occurs at index 11, hence a(4) = 11; A053707(a(4)) = A053707(11)) = 40 = A088365(4).
%o (PARI) {m=1; k=0; for(n=2,500000,if(matsize(factor(n))[1]==1&&factor(n)[1,2]>1,d=n-m; if((k<2||b<c)&&(!k<1&&d<=c),print1(k,",")); k++; m=n; b=c; c=d))}
%Y Cf. A025475, A053707, A088365.
%K nonn
%O 1,1
%A _Klaus Brockhaus_, Sep 27 2003
|
