A246693 Integers of the form A000129(k)/k.

1, 1, 3, 51, 1155, 29427, 22639155, 19594173939, 591666769155, 17395890501991155, 545562959212245745155, 17374763192966689655283, 17822632594268121083311155, 98871007862168357169507809155, 20542323580569158999838073680199155

Offset: 1

Author

Clark Kimberling, Sep 01 2014

Keywords

• nonn
• easy

Examples

			A000129(4)/4 = 12/4 = 3.
		

Crossrefs

Cf. A246692, A000129.

Programs

Mathematica

z = 1000; t = LinearRecurrence[{2, 1}, {1, 2}, z]; (* A000129 *)
Select[Range[1, z], IntegerQ[t[[#]]/#] &]   (* A246692 *)
Table[t[[u[[n]]]]/u[[n]], {n, 1, 17}]  (* A246693 *)