A064848 - OEIS

%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