1,2

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.

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

(Haskell)

import Data.List (elemIndex); import Data.Maybe (fromJust)

a257122 = (+ 1) . fromJust . (`elemIndex` a257218_list)

Cf. A257218.

Sequence in context: A191455 A191540 A191450 * A249188 A284188 A011158

Adjacent sequences: A257119 A257120 A257121 * A257123 A257124 A257125

nonn

Reinhard Zumkeller, Apr 25 2015

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

approved