OFFSET
2,1
COMMENTS
Records of the sequence are consecutive primes.
MAPLE
A000032 := proc(n) ((1+sqrt(5))/2)^n + ((1-sqrt(5))/2)^n ; expand(%) ; end proc:
A001608 := proc(n) coeftayl( (3-x^2)/(1-x^2-x^3), x=0, n) ; end proc:
A178380 := proc(n) local g; g := igcd(n, A000032(n)-1, A001608(n)) ; if g = 1 then 1; else numtheory[factorset](%) ; max( op(%)) ; end if; end proc:
seq(A178380(n), n=2..90) ; # R. J. Mathar, Aug 08 2010
CROSSREFS
KEYWORD
nonn
AUTHOR
Vladimir Shevelev, May 26 2010
EXTENSIONS
More terms from R. J. Mathar, Aug 08 2010
STATUS
approved