|
%I #4 Sep 03 2014 14:40:19
%S 1,1,3,51,1155,29427,22639155,19594173939,591666769155,
%T 17395890501991155,545562959212245745155,17374763192966689655283,
%U 17822632594268121083311155,98871007862168357169507809155,20542323580569158999838073680199155
%N Integers of the form A000129(k)/k.
%e A000129(4)/4 = 12/4 = 3.
%t z = 1000; t = LinearRecurrence[{2, 1}, {1, 2}, z]; (* A000129 *)
%t Select[Range[1, z], IntegerQ[t[[#]]/#] &] (* A246692 *)
%t Table[t[[u[[n]]]]/u[[n]], {n, 1, 17}] (* A246693 *)
%Y Cf. A246692, A000129.
%K nonn,easy
%O 1,3
%A _Clark Kimberling_, Sep 01 2014
|
