A110738 - OEIS

%I #8 Aug 09 2015 00:34:31

%S 1,3,4,3,6,5,8,3,4,9,12,5,14,13,16,3,18,5,20,3,4,21,24,5,6,25,4,13,30,

%T 11,32,3,34,33,36,5,38,37,16,3,42,5,44,21,16,45,48,5,8,9,52,5,54,5,16,

%U 13,7,57,60,7,62,61,4,3,66,23,68,13,70,29,72,5,74,73,16,37,78,17,80,3

%N a(n) = common ratio for row n in A112668.

%p A110738 := proc(n) local a ; if n = 1 then RETURN(1) ; else a := 2 ; while (1-a^n)/(1-a) mod n <> 0 do a := a+1 ; od ; RETURN(a) ; fi ; end: for n from 1 to 80 do printf("%d, ",A110738(n)) : od : # _R. J. Mathar_, Mar 13 2007

%Y Cf. A110737, A110739.

%Y Cf. A074792, A083503.

%K easy,nonn

%O 1,2

%A _Amarnath Murthy_, Aug 10 2005

%E More terms from _R. J. Mathar_, Mar 13 2007