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

A197219 a(0) = 2, a(n) = Lucas(phi(n)) for n > 0.

Original entry on oeis.org

2, 1, 1, 3, 3, 7, 3, 18, 7, 18, 7, 123, 7, 322, 18, 47, 47, 2207, 18, 5778, 47, 322, 123, 39603, 47, 15127, 322, 5778, 322, 710647, 47, 1860498, 2207, 15127, 2207, 103682, 322, 33385282, 5778, 103682, 2207, 228826127, 322, 599074578, 15127, 103682, 39603
Offset: 0

Views

Author

T. D. Noe, Oct 12 2011

Keywords

Crossrefs

Cf. A000010, A000032, A065449, A065451, A197218 (phi(Lucas(n))).

Programs

  • Magma
    [2] cat [Lucas(EulerPhi(n)): n in [1..60]]; // Vincenzo Librandi, Oct 13 2011
    
  • Mathematica
    Table[LucasL[EulerPhi[n]], {n, 0, 50}]
  • PARI
    a(n) = if(n==0, 2, fibonacci(eulerphi(n)+1) + fibonacci(eulerphi(n)-1)) \\ G. C. Greubel, Dec 22 2017

Formula

a(n) = A000032(A000010(n)) for n > 0.

A107647 Euler's totient function applied to tribonacci numbers.

Original entry on oeis.org

1, 1, 1, 2, 6, 12, 8, 20, 54, 148, 136, 144, 612, 1200, 1344, 2448, 10506, 16848, 13824, 22000, 83232, 148716, 205368, 377736, 920160, 1694088, 1880304, 3290112, 14839968, 22472640, 17805312, 42407136, 117876096, 327661128, 178588800, 561863168, 1604383200
Offset: 2

Views

Author

Roger L. Bagula, Jun 09 2005

Keywords

Crossrefs

Programs

  • Mathematica
    F[1] = 0; F[2] = 1; F[3] = 1; F[n__] := F[n] = F[n - 1] + F[n - 2] + F[n - 3]; Table[EulerPhi[F[n]], {n, 2, 50}]

Formula

a(n) = A000010(A000073(n)). - Amiram Eldar, Mar 02 2020

Extensions

First term 0 removed and offset corrected by Amiram Eldar, Mar 02 2020

A197190 a(0) = 2, a(n) = Lucas(phi(n^2)) for n > 0.

Original entry on oeis.org

2, 1, 3, 18, 47, 15127, 322, 599074578, 4870847, 192900153618, 228826127, 97418273275323406890123, 10749957122, 400010949097364802732720796316482, 358890350005878082, 11981655542024930675232002, 562882766124611619513723647, 699259133978938420550028971714417160188479526095241271647
Offset: 0

Views

Author

Vincenzo Librandi, Oct 13 2011

Keywords

Crossrefs

Programs

  • Magma
    [2] cat [Lucas(EulerPhi(n^2)): n in [1..20]];

Formula

a(n) = A000032(A002618(n)) for n > 0.

A197191 a(n) = phi(Lucas(n^2)).

Original entry on oeis.org

1, 1, 6, 36, 2206, 150000, 13685760, 16794009904, 23538338288640, 40111742758242240, 678603619866009600000, 19289305175281390070751204, 619856418580365858926902640640, 208006459829483370218035382709089280, 78451383926677134672195807581733722937984
Offset: 0

Views

Author

Vincenzo Librandi, Oct 13 2011

Keywords

Crossrefs

Programs

  • Magma
    [EulerPhi(Lucas(n^2)): n in [0..15]]
  • Mathematica
    Table[EulerPhi[LucasL[n^2]], {n, 0, 15}] (* Vincenzo Librandi, Oct 04 2013 *)

A366773 a(n) = A000010(A001045(n)).

Original entry on oeis.org

1, 1, 2, 4, 10, 12, 42, 64, 108, 300, 682, 576, 2730, 5292, 6600, 16384, 43690, 46656, 174762, 240000, 455112, 1320352, 2796202, 2211840, 10125000, 22358700, 28256040, 66382848, 175923744, 178200000, 715827882, 1073741824, 1877540544, 5726448300, 10133592000
Offset: 1

Views

Author

Sean A. Irvine, Oct 21 2023

Keywords

Crossrefs

Formula

a(n) = phi(A001045(n)).
Showing 1-5 of 5 results.