A065254 "Inverse" to A065253.

2, 7, 1, 3, 5, 8, 14, 12, 6, 51, 4, 17, 10, 20, 9, 21, 30, 19, 13, 55, 38, 22, 16, 24, 11, 23, 40, 27, 15, 66, 41, 29, 18, 37, 32, 42, 48, 35, 31, 72, 50, 34, 25, 58, 49, 70, 57, 36, 39, 78, 69, 54, 26, 60, 52, 73, 67, 53, 43, 86, 95, 64, 28, 61, 62, 76, 97, 68, 45, 98, 96, 74

Offset

1,1

Comments

The sequence would be a permutation of the naturals if each of the digits 0,1,..,9 occur infinitely often in the decimal expansion of Pi. "Inverse": A065253.

Links

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Index entries for sequences that are permutations of the natural numbers

Mathematica

terms = 100; Clear[cnt]; cnt[_] = n = 0;
Do[a065253[++n] = 10(++cnt[k]-1)+k, {k, RealDigits[Pi, 10, terms][[1]]}];
Sort[{a065253[#], #}& /@ Range[terms]][[All, 2]] // Rest (* Jean-François Alcover, Jan 22 2020 *)

Prog

(Haskell)
import Data.List (elemIndex); import Data.Maybe (fromJust)
a065254 = (+ 1) . fromJust . (`elemIndex` a065253_list)
-- Reinhard Zumkeller, Jul 14 2013

Crossrefs

Cf. A065253.

Sequence in context: A145057 A344930 A218792 * A010592 A096381 A346252

Adjacent sequences: A065251 A065252 A065253 * A065255 A065256 A065257

Keyword

base,nice,nonn

Author

Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de), Oct 26 2001

Status

approved