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.

A141139 a(n) = f(f(f(f(f(n))))), where f(n) is prime(n)-1.

Original entry on oeis.org

1, 2, 150, 862, 4210, 6688, 12496, 15496, 24420, 40086, 43206, 67138, 83046, 88426, 102646, 133998, 161092, 169986, 202966, 235288, 243262, 279816, 305068, 346168, 394812, 438568, 454500, 481020, 498936, 521860, 633160, 670728, 715698, 741400
Offset: 1

Views

Author

Juri-Stepan Gerasimov, Jul 31 2008

Keywords

Crossrefs

Cf. A006093, A140853, A141208, A141217.

Programs

  • Maple
    p:=ithprime: seq(p(p(p(p(p(n)-1)-1)-1)-1)-1, n=1..35); # Emeric Deutsch, Aug 06 2008
  • Mathematica
    Table[Prime[Prime[Prime[Prime[Prime[n - 1] - 1] - 1] - 1] - 1] - 1, {n, 2, 50}] (* Vincenzo Librandi, Apr 05 2015 *)
  • PARI
    vector(50, n, prime(prime(prime(prime(prime(n)-1)-1)-1)-1)-1) \\ Michel Marcus, Apr 09 2015

Extensions

More terms from Emeric Deutsch, Aug 06 2008

A141208 a(n) = prime(prime(prime(n) - 1) - 1) - 1, where prime(n) = n-th prime.

Original entry on oeis.org

1, 2, 12, 36, 106, 150, 238, 280, 396, 576, 612, 862, 1020, 1068, 1212, 1492, 1732, 1810, 2088, 2346, 2410, 2712, 2902, 3220, 3582, 3906, 4020, 4210, 4336, 4512, 5278, 5530, 5848, 6028, 6636, 6688, 7102, 7516, 7740, 8110, 8500, 8572, 9282, 9396, 9648
Offset: 1

Views

Author

Juri-Stepan Gerasimov, Jul 31 2008

Keywords

Crossrefs

Cf. A141139, A141185. - Juri-Stepan Gerasimov, Oct 25 2009
Cf. A140853.

Programs

  • Magma
    [NthPrime(NthPrime(NthPrime(n)-1)-1)-1: n in [1..50]]; // Vincenzo Librandi, Apr 05 2015
  • Maple
    p:=ithprime: seq(p(p(p(n)-1)-1)-1, n=1..53); # Juri-Stepan Gerasimov, Oct 25 2009
  • Mathematica
    Table[Prime[Prime[Prime[n - 1] - 1] - 1] - 1, {n, 2, 50}] (* Vincenzo Librandi, Apr 05 2015 *)

Extensions

a(22) corrected by D. S. McNeil, Mar 21 2009

A141217 a(n) = prime(prime(prime(prime(n) - 1) - 1) - 1) - 1, where prime(n) is the n-th prime.

Original entry on oeis.org

1, 2, 36, 150, 576, 862, 1492, 1810, 2712, 4210, 4512, 6688, 8110, 8572, 9828, 12496, 14778, 15496, 18222, 20856, 21490, 24420, 26416, 29670, 33460, 36832, 38046, 40086, 41452, 43206, 51576, 54366, 57726, 59628, 66552, 67138, 71740, 76386
Offset: 1

Views

Author

Juri-Stepan Gerasimov, Jul 31 2008

Keywords

Crossrefs

Cf. A141208, A140853, A006093.

Programs

  • Maple
    p:=ithprime: seq(p(p(p(p(n)-1)-1)-1)-1, n=1..40); # Emeric Deutsch, Aug 16 2008
  • Mathematica
    Table[Prime[Prime[Prime[Prime[n - 1] - 1] - 1] - 1] - 1, {n, 2, 50}] (* Vincenzo Librandi, Apr 05 2015 *)

Extensions

Corrected and extended by Emeric Deutsch, Aug 16 2008
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.