A346599 Smallest k such that A344005(k) = n.

1, 3, 4, 5, 15, 7, 8, 9, 45, 11, 33, 13, 91, 35, 16, 17, 51, 19, 76, 84, 77, 23, 69, 25, 65, 27, 63, 29, 87, 31, 32, 88, 187, 85, 180, 37, 703, 247, 104, 41, 123, 43, 172, 99, 115, 47, 141, 49, 175, 255, 204, 53, 159, 135, 280, 133, 551, 59, 177, 61, 1891, 217, 64, 160, 143, 67

Offset

1,2

Links

Chai Wah Wu, Table of n, a(n) for n = 1..20000 (terms 1..156 from N. J. A. Sloane, terms 157..420 from Michel Marcus).

Example

A344005(15) = 5 is the first appearance of 5 in A344005, so a(5) = 15.

Mathematica

Array[(k=1; n=1; While[m=1; While[!Divisible[m(m+1), n], m++]; m!=#, n++]; n)&, 70] (* Giorgos Kalogeropoulos, Jul 29 2021 *)

Prog

(PARI) f(n) = my(m=1); while (m*(m+1) %n, m++); m; \\ A344005
a(n) = my(k=1); while (f(k) !=n, k++); k; \\ Michel Marcus, Jul 29 2021

Crossrefs

Cf. A344005, A346598.

Sequence in context: A365017 A226117 A221173 * A330138 A051530 A240670

Adjacent sequences: A346596 A346597 A346598 * A346600 A346601 A346602

Keyword

nonn

Author

Robert Dougherty-Bliss and N. J. A. Sloane, Jul 28 2021

Status

approved