login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A048579 Pisot sequence L(3,8). 1
3, 8, 22, 61, 170, 474, 1322, 3688, 10289, 28705, 80084, 223427, 623341, 1739065, 4851835, 13536184, 37764738, 105360229, 293945582, 820081790, 2287954586, 6383187935, 17808521403, 49684176276, 138614392311, 386721712946, 1078918868168, 3010086801751 (list; graph; refs; listen; history; text; internal format)
OFFSET

0,1

LINKS

Colin Barker, Table of n, a(n) for n = 0..1000

MATHEMATICA

RecurrenceTable[{a[0] == 3, a[1] == 8, a[n] == Ceiling[a[n - 1]^2/a[n - 2]]}, a, {n, 0, 30}] (* Bruno Berselli, Feb 05 2016 *)

PROG

(MAGMA) Lxy:=[3, 8]; [n le 2 select Lxy[n] else Ceiling(Self(n-1)^2/Self(n-2)): n in [1..30]]; // Bruno Berselli, Feb 05 2016

(PARI) pisotL(nmax, a1, a2) = {

  a=vector(nmax); a[1]=a1; a[2]=a2;

  for(n=3, nmax, a[n] = ceil(a[n-1]^2/a[n-2]));

  a

}

pisotL(50, 3, 8) \\ Colin Barker, Aug 07 2016

CROSSREFS

See A008776 for definitions of Pisot sequences.

Sequence in context: A318820 A200752 A279378 * A121449 A025566 A027036

Adjacent sequences:  A048576 A048577 A048578 * A048580 A048581 A048582

KEYWORD

nonn

AUTHOR

David W. Wilson

EXTENSIONS

Incorrect formula removed by Jinyuan Wang, Mar 10 2020

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 20:44 EDT 2020. Contains 333103 sequences. (Running on oeis4.)