cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A124516 a(n) = least k such that 2^i*k-1 is prime for 1<=i<=n.

This page as a plain text file.
%I A124516 #11 Apr 24 2019 04:40:52
%S A124516 2,2,3,3,45,45,561330,9549960,42932385,13044904290,277344139215,
%T A124516 277344139215,2045466215756535
%N A124516 a(n) = least k such that 2^i*k-1 is prime for 1<=i<=n.
%t A124516 k = 1; Do[If[n < 5, inc = 1, inc = 15];If[Mod[k, inc] > 0, k = k + inc - Mod[k, inc]];While[Nand @@ PrimeQ[Table[2^j, {j, n}]*k - 1], k += inc]; Print[k], {n, 1, 10}] (* _Ray Chandler_ *)
%Y A124516 Cf. A006254, A124485, A124493, A124494, A124017, A125113, A124514, A124515.
%Y A124516 Cf. A071576, A101994, A101320.
%K A124516 nonn,more
%O A124516 1,1
%A A124516 _Artur Jasinski_, Nov 04 2006
%E A124516 Definition corrected and a(10) calculated by _Farideh Firoozbakht_, Nov 24 2006
%E A124516 a(11)-a(13) from _Giovanni Resta_, Apr 22 2019