A262358 Inverse permutation to A262356.

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 14, 16, 18, 20, 22, 24, 26, 13, 28, 30, 31, 35, 39, 43, 47, 51, 55, 15, 32, 38, 60, 61, 63, 65, 67, 69, 71, 17, 36, 42, 62, 77, 78, 80, 82, 84, 86, 19, 40, 46, 64, 79, 89, 90, 92, 94, 96, 21, 44, 50, 66, 81, 91, 99, 100

Offset: 1

Author

Reinhard Zumkeller, Sep 19 2015

Keywords

• nonn
• look

Comments

A262377 and A262377 give primes and where they occur: A262377(n)=a(A262378(n)).

Links

• Alois P. Heinz, Table of n, a(n) for n = 1..20000 (2958 terms from Reinhard Zumkeller)
• Index entries for sequences that are permutations of the natural numbers

Crossrefs

Cf. A262356, A262360 (fixed points), A262377 (primes), A262378.

Programs

Haskell

import Data.List (elemIndex); import Data.Maybe (fromJust)
a262358 = (+ 1) . fromJust . (`elemIndex` a262356_list)

Mathematica

terms = 100;
(* b = A262356 *) b[1] = 1; b[n_] := b[n] = Module[{s, k}, s = Rest[ IntegerDigits[b[n-1]]] //. {(0).., d__} :> {d}; For[k = 2, True, k++, If[FreeQ[Array[b, n-1], k], If[s == {0}, Return[k], If[IntegerDigits[ k][[1 ;; Length[s]]] == s, Return[k]]]]]];
Sort[Table[{b[n], n}, {n, 1, 2 terms}]][[1 ;; terms, 2]] (* Jean-François Alcover, Mar 12 2019 *)