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,3

Links

Table of n, a(n) for n=1..15.

Example

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

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 *)

Crossrefs

Cf. A246692, A000129.

Sequence in context: A307369 A126685 A355797 * A187666 A172434 A210676

Adjacent sequences: A246690 A246691 A246692 * A246694 A246695 A246696

Keyword

nonn,easy

Author

Clark Kimberling, Sep 01 2014

Status

approved