login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A213900 The minimum number of 11's in the relation n*[n,11,11,...,11,n] = [x,...,x] between simple terminating continued fractions. 23
2, 3, 5, 4, 11, 7, 5, 11, 14, 1, 11, 6, 23, 19, 11, 8, 11, 17, 29, 7, 5, 23, 11, 24, 20, 35, 23, 13, 59, 5, 23, 3, 8, 39, 11, 18, 17, 27, 29, 3, 23, 43, 5, 59, 23, 15, 11, 55, 74, 35, 41, 26, 35, 9, 23, 35, 41, 57, 59, 2, 5, 23, 47, 34, 11, 67, 17, 23, 119, 13 (list; graph; refs; listen; history; text; internal format)
OFFSET
2,1
COMMENTS
In a variant of A213891, multiply n by a number with simple continued fraction [n,11,11,..,11,n] and increase the number of 11's until the continued fraction of the product has the same first and last entry (called x in the NAME). Examples are
2 * [2, 11, 11, 2] = [4, 5, 1, 1, 5, 4],
3 * [3, 11, 11, 11, 3] = [9, 3, 1, 2, 3, 2, 1, 3, 9],
4 * [4, 11, 11, 11, 11, 11, 4] = [16, 2, 1, 3, 2, 1, 1, 10, 1, 1, 2, 3, 1, 2, 16],
5 * [5, 11, 11, 11, 11, 5] = [25, 2, 4, 1, 1, 2, 2, 1, 1, 4, 2, 25] ,
6 * [6, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 11, 6] = [36, 1, 1, 5, 1, 1, 2, 7, 16, 1, 1, 1, 2, 1, 6, 1, 2, 1, 1, 1, 16, 7, 2, 1, 1, 5, 1, 1, 36].
The number of 11's needed defines the sequence a(n).
If we consider the fixed points such that a(n)=n, we conjecture to obtain the sequence A000057. This sequence consists of prime numbers. We conjecture that this sequence of prime numbers, in addition to its well-known relation to the collection of Fibonacci sequences (sequences satisfying f(n)=f(n-1)+f(n-2) with arbitrary positive integer values for f(1) and f(2)) it also refers to the sequences satisfying f(n)=11*f(n-1)+f(n-2), A049666, A015457, etc. This would mean that a prime is in the sequence A000057 if and only if it divides some term in each of the sequences satisfying f(n)=11*f(n-1)+f(n-2).
It is surprising that the fixed points of this sequence seem to be the same as for the variant A213648 where 11 is replaced by 1, while for the other variants A262212 - A262220 (where the repeated term is 2, ..., 10) the fixed points are different, see A213891 - A213899. - M. F. Hasler, Sep 15 2015
LINKS
MATHEMATICA
f[m_, n_] := Block[{c, k = 1}, c[x_, y_] := ContinuedFraction[x FromContinuedFraction[Join[{x}, Table[m, {y}], {x}]]]; While[First@ c[n, k] != Last@ c[n, k], k++]; k]; f[11, #] & /@ Range[2, 120] (* Michael De Vlieger, Sep 16 2015 *)
PROG
(PARI) \\ This PARI program will generate sequence A000057
{a(n) = local(t, m=1); if( n<2, 0, while( 1,
t = contfracpnqn( concat([n, vector(m, i, 11), n]));
t = contfrac(n*t[1, 1]/t[2, 1]);
if(t[1]<n^2 || t[#t]<n^2, m++, break));
m)};
for(k=1, 1500, if(k==a(k), print1(a(k), ", ")));
CROSSREFS
Sequence in context: A112060 A084933 A355065 * A213648 A302849 A193971
KEYWORD
nonn
AUTHOR
Art DuPre, Jun 24 2012
STATUS
approved

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

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 19 06:56 EDT 2024. Contains 370953 sequences. (Running on oeis4.)