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.

Showing 1-3 of 3 results.

A094460 a(n) is the third term in Euclid-Mullin (EM) prime sequence initiated with n-th prime.

Original entry on oeis.org

7, 7, 11, 3, 23, 3, 5, 3, 47, 59, 3, 3, 83, 3, 5, 107, 7, 3, 3, 11, 3, 3, 167, 179, 3, 7, 3, 5, 3, 227, 3, 263, 5, 3, 13, 3, 3, 3, 5, 347, 359, 3, 383, 3, 5, 3, 3, 3, 5, 3, 467, 479, 3, 503, 5, 17, 7, 3, 3, 563, 3, 587, 3, 7, 3, 5, 3, 3, 5, 3, 7, 719, 3, 3, 3, 13, 19, 3, 11, 3, 839, 3, 863
Offset: 1

Views

Author

Labos Elemer, May 06 2004

Keywords

Examples

			First term is p[n], 2nd equals 2; 3rd term is given here as largest p-divisor of 2p+1 [occasionally safe primes, A005385];
4th terms listed in A051614; further terms are in A094461-A094463.

Crossrefs

Cf. A000945, A005385, A051614-A051616, A051308 - A051335, A093778-A093782, A094152/A094153.
Except for first term [which is A000945(3)], the same as A023592.

Programs

  • Mathematica
    a[x_]:=First[Flatten [FactorInteger[Apply[Times, Table[a[j], {j, 1, x-1}]]+1]]]; ta=Table[0, {168}]; a[1]=1; Do[{a[1]=Prime[j], el=10}; Print[a[el]; ta[[j]]=a[el]; j++ ], {j, 1, 168}]; ta

Formula

a(n)= a(n-1)+ A008472(a(n-1)) - Ctibor O. Zizka, May 26 2008

A094461 a[n] is the 5th term in Euclid-Mullin (EM) prime sequence initiated with n-th prime.

Original entry on oeis.org

13, 13, 331, 13, 7, 6163, 7, 571, 13, 10267, 23, 31, 7, 13, 17, 7, 3, 7, 5227, 43, 7, 2371, 7, 61, 19, 3, 7, 13, 3271, 13, 5, 37, 4111, 43, 3, 13, 47, 7, 5011, 360187, 7, 73, 13, 22003, 23, 7, 8863, 5, 7, 6871, 181, 193, 7, 7, 11, 139, 3, 7, 1297, 73, 7, 7, 31, 3, 7
Offset: 1

Views

Author

Labos Elemer, May 06 2004

Keywords

Examples

			First term is p[n], 2nd equals 2;
3rd term is A091460 as largest p-divisor of 2p+1
(occasionally safe primes, A005385);
4th terms listed in A051614; 5th term is here in A094461;
6th, 7th terms in A094462, A094463;

Crossrefs

Cf. A000945, A005385, A051614-A051616, A051308-A051335, A093778-A093782, A094152-A094153, A094460-A094463.

Programs

  • Mathematica
    a[x_]:=First[Flatten [FactorInteger[Apply[Times, Table[a[j], {j, 1, x-1}]]+1]]];ta=Table[0, {168}];a[1]=1; Do[{a[1]=Prime[j], el=5};Print[a[el];ta[[j]]=a[el];j++ ], {j, 1, 168}];ta

A094462 a(n) is the 6th term in Euclid-Mullin (EM) prime sequence initiated with n-th prime.

Original entry on oeis.org

53, 53, 19, 53, 10627, 7, 3571, 271, 84319, 7, 47059, 7, 47, 53, 23971, 11, 13, 5, 7, 201499, 5, 7, 67, 13, 7, 21211, 5, 29, 10696171, 11, 149, 971, 16896211, 11, 58111, 17, 11, 75307, 25105111, 853, 139, 7, 5, 613, 181, 23, 13, 29, 13, 19, 53, 47, 5, 11, 84811
Offset: 1

Views

Author

Labos Elemer, May 06 2004

Keywords

Examples

			First term is p(n), 2nd equals 2;
3rd term is A091460 as largest p-divisor of 2p+1
(occasionally safe primes, A005385);
4th terms listed in A051614; 5th term is in A094461;
6th-7th terms in A094462, A094463;

Crossrefs

Cf. A000945, A005385, A051614-A051616, A051308-A051335, A093778-A093782, A094152-A094153, A094460-A094463.

Programs

  • Mathematica
    a[x_]:=First[Flatten [FactorInteger[Apply[Times, Table[a[j], {j, 1, x-1}]]+1]]];ta=Table[0, {168}];a[1]=1; Do[{a[1]=Prime[j], el=6};Print[a[el];ta[[j]]=a[el];j++ ], {j, 1, 168}];ta
Showing 1-3 of 3 results.

Started in 1964 by Neil J. A. Sloane | Maintained by The OEIS Foundation Inc.

Content is available under The OEIS End-User License Agreement.