|
%I #31 Oct 30 2015 14:58:02
%S 1,2,6,8,12,22,40,48,58,60,68,100,102,132,144,162,170,230,234,238,282,
%T 306,336,338,396,418,460,528,550,552,612,660
%N Records in A263455.
%C Positions of records: 1, 3, 7, 9, 11, 41, 109, 151, 647, ... (A263926).
%t a=2;ma=0;Reap[Do[k=1;While[!PrimeQ[b=a+k*n],k++];a=b;If[k>ma, ma=k;Sow[ma]],{n,10^6}]][[2,1]]
%Y Cf. A263455, A263926.
%K nonn
%O 1,2
%A _Zak Seidov_, Oct 19 2015
|
