OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..95
EXAMPLE
(1+1/17)^17 has for continued fraction [2, 1, 1, 1, 3, 1, 10, 1, 2, 1, 4, 5, 4, 3, 2, 1, 2, 37, 3, 5, 3, 2, 1, 14, 1, 17, 1, 22, 1, 2, 1, 1, 1, 1, 2, 2, 16, 2, 2, 1, 1, 1, 10, 2, 5, 2] which contains 17 hence 17 is in the sequence.
MATHEMATICA
For[n=1, n<=3000, n++, {r=(1+1/n)^n; If[MemberQ[ContinuedFraction[r], n], Print[n]]}]
Select[Range[6000], MemberQ[ContinuedFraction[(1+1/#)^#], #]&] (* Harvey P. Dale, May 03 2011 *)
PROG
(PARI) for(n=1, 150, if(prod(i=1, length(contfrac((1+1/n)^n)), n-component(contfrac((1+1/n)^n), i))==0, print1(n, ", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Benoit Cloitre, Jun 02 2002
EXTENSIONS
More terms from John W. Layman, Apr 26 2004
More terms from Harvey P. Dale, May 03 2011.
More terms from Amiram Eldar, Sep 05 2020
STATUS
approved