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

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

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

Prog

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

Crossrefs

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

Sequence in context: A129304 A337149 A294358 * A032962 A032519 A221912

Adjacent sequences: A262355 A262356 A262357 * A262359 A262360 A262361

Keyword

nonn,look

Author

Reinhard Zumkeller, Sep 19 2015

Status

approved