|
%I #7 Oct 18 2014 14:59:40
%S 1,5,13,47,59,109,241,335,1109,1373,1447,14893,37892,56543,185644,
%T 649603,838441,8840101,16935761,100604513,118373279,270704167,
%U 1355477231
%N Indices of records in A194591.
%C Record values are given by A194600.
%t a[n_]:= (k=0; While[!PrimeQ[n*2^k-1] && !PrimeQ[n*2^k+1], k++]; k); w = {1}; v = {0}; Do[If[a[n]>v[[-1]], AppendTo[v, a[n]]; Print[n]], {n, 1356000000}] (* Farideh Firoozbakht, Oct 16 2014 *)
%Y Cf. A194635, A194639
%K more,nonn
%O 1,2
%A _Max Alekseyev_, Oct 14 2012
%E a(23)=A194639(22) from Wilfrid Keller, added by _Max Alekseyev_, Oct 18 2014
|
