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-2 of 2 results.

A344147 Primes in A191746.

Original entry on oeis.org

193, 53069, 58422233, 1348470667, 2847740783, 3237916229, 5029745827, 7643871979, 15107731019, 17902513283, 21052092827, 22187962591, 28412311451, 59363922119, 81459096899, 85780812149, 102742076659, 123894775231, 137692362377, 143889901511, 170038274723, 174648621811
Offset: 1

Views

Author

Hartmut F. W. Hoft, May 10 2021

Keywords

Examples

			a(1)=193=A191746(3) is the first prime in A191746 and a(2)=53069=A191746(11) is the second.
		

Crossrefs

Programs

  • Mathematica
    (* function a037074[ ] and support functions are defined in A074040 *)
    a191746[n_] := Rest[FoldList[Plus, 0, a037074[n]]]
    a344147x[n_] := Select[a191746[n], PrimeQ]
    a344147[550]

A344148 Primes which are two greater than A191746 terms.

Original entry on oeis.org

17, 6779, 293617, 2992417, 24101863, 423722581, 625997497, 929306267, 3377032037, 3825265007, 6458885659, 7150892197, 13075407803, 13860035251, 19434399319, 32531231209, 47475445333, 50281049527, 53207636077, 62607479491, 85780812151, 106014038789, 109384656937, 121991823731, 125813698531
Offset: 1

Views

Author

Hartmut F. W. Hoft, May 10 2021

Keywords

Comments

Among numbers a(1..564) are 38 twin primes of which 14 are twins to numbers in A344147 with the first of the latter pairs being A344147(16)=85780812149 and a(21)=85780812151. In contrast it appears that A097490, A097491, A097493 and A343778 contain only twin prime numbers from the set {5, 7, 17}.

Examples

			a(1)=17=A191746(1)+2 is the first prime and a(2)=6779=A191746(7)+2 is the second of the form A191746(k)+2; both are twin primes while a(3)=293617 is not.
		

Crossrefs

Programs

  • Mathematica
    (* function a191746[ ] is defined in A344147 *)
    a344148[n_] := Select[a191746[n] + 2, PrimeQ]
    a344148[500]
Showing 1-2 of 2 results.