login
"Inverse" to A065253.
2

%I #13 Jan 22 2020 20:18:45

%S 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,

%T 40,27,15,66,41,29,18,37,32,42,48,35,31,72,50,34,25,58,49,70,57,36,39,

%U 78,69,54,26,60,52,73,67,53,43,86,95,64,28,61,62,76,97,68,45,98,96,74

%N "Inverse" to A065253.

%C 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.

%H Reinhard Zumkeller, <a href="/A065254/b065254.txt">Table of n, a(n) for n = 1..10000</a>

%H <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>

%t terms = 100; Clear[cnt]; cnt[_] = n = 0;

%t Do[a065253[++n] = 10(++cnt[k]-1)+k, {k, RealDigits[Pi, 10, terms][[1]]}];

%t Sort[{a065253[#], #}& /@ Range[terms]][[All, 2]] // Rest (* _Jean-François Alcover_, Jan 22 2020 *)

%o (Haskell)

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

%o a065254 = (+ 1) . fromJust . (`elemIndex` a065253_list)

%o -- _Reinhard Zumkeller_, Jul 14 2013

%Y Cf. A065253.

%K base,nice,nonn

%O 1,1

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