A257122 Smallest m such that A257218(m) = n.

1, 2, 3, 5, 8, 4, 30, 6, 10, 7, 123, 12, 201, 31, 9, 13, 300, 11, 825, 16, 34, 124, 946, 14, 27, 202, 21, 32, 3094, 15, 7060, 18, 127, 301, 54, 20, 13528, 826, 205, 17, 28659, 33, 40811, 125, 25, 947, 46658, 19, 81, 28, 304, 203, 57450, 22, 134, 38, 829, 3095

Offset: 1

Author

Reinhard Zumkeller, Apr 25 2015

Keywords

• nonn

Comments

A257218(a(n)) = n and A257218(m) != n for m < a(n);

it appears that all records > 8 occur at primes;

for p prime: a(p)-1 = index of the smallest multiple of p in A257218.

Links

• Hiroaki Yamanouchi, Table of n, a(n) for n = 1..72

Crossrefs

Cf. A257218.

Programs

Haskell

import Data.List (elemIndex); import Data.Maybe (fromJust)
a257122 = (+ 1) . fromJust . (`elemIndex` a257218_list)

Extensions

a(41)-a(58) from Hiroaki Yamanouchi, May 04 2015