A194600 Record values in A194591.

0, 1, 2, 4, 5, 6, 11, 18, 20, 28, 70, 106, 208, 726, 910, 2906, 7431, 14073, 22394, 41422, 82587, 85461, 356981

Offset: 1

Author

Arkadiusz Wesolowski, Aug 30 2011

Keywords

• more
• nonn

Comments

Indices of records are given by A217892.

Examples

			A194591(59) = 5 since A194591(109) = 6 is the next record value.
		

References

• Wilfrid Keller, personal communication, 2010.

Links

• Chris K. Caldwell, The List of Largest Known Primes, 1355477231 * 2^356981 + 1
• Carlos Rivera, Problem 30

Crossrefs

Cf. A194591, A194603, A194606, A194607, A194608, A194635, A194636, A194637, A194638, A194639.

Cf. A103963, A103964, A076335, A180247.

Programs

Mathematica

l = -1; Flatten[Table[k = 0; While[! PrimeQ[n*2^k - 1] && ! PrimeQ[n*2^k + 1], k++]; If[k > l, l = k, {}], {n, 10^5}]] (* Arkadiusz Wesolowski, Sep 04 2011 *)

Extensions

a(23)=A194637(22) from Wilfrid Keller, added by Max Alekseyev, Oct 18 2014