|
%I #9 Jul 10 2018 03:00:03
%S 1,2,2,4,1,2,4,4,10,2,10,2,5,4,8,12,2,6,14,8,8,6,16,4,13,10,26,8,1,8,
%T 24,24,6,2,2,6,15,18,16,20,4,8,30,6,10,16,28,8,36,22,2,20,19,30,10,12,
%U 14,2,14,8,25,20,4,48,13,6,54,2,32,2,52,16,30,26,40,10,6,16,20,36,78,4
%N Period of continued fraction for sqrt(2)*n.
%C a(n)=1 for n in A001653. - _Robert Israel_, Jul 10 2018
%H Robert Israel, <a href="/A064848/b064848.txt">Table of n, a(n) for n = 1..10000</a>
%p f:= n -> nops(numtheory:-cfrac(sqrt(2)*n,'periodic','quotients')[2]):
%p map(f, [$1..1000]); # _Robert Israel_, Jul 10 2018
%Y Cf. A001653.
%K nonn
%O 1,2
%A _R. K. Guy_, Oct 26, 2001
|
