cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

A065254 "Inverse" to A065253.

This page as a plain text file.
%I A065254 #13 Jan 22 2020 20:18:45
%S A065254 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 A065254 40,27,15,66,41,29,18,37,32,42,48,35,31,72,50,34,25,58,49,70,57,36,39,
%U A065254 78,69,54,26,60,52,73,67,53,43,86,95,64,28,61,62,76,97,68,45,98,96,74
%N A065254 "Inverse" to A065253.
%C A065254 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 A065254 Reinhard Zumkeller, <a href="/A065254/b065254.txt">Table of n, a(n) for n = 1..10000</a>
%H A065254 <a href="/index/Per#IntegerPermutation">Index entries for sequences that are permutations of the natural numbers</a>
%t A065254 terms = 100; Clear[cnt]; cnt[_] = n = 0;
%t A065254 Do[a065253[++n] = 10(++cnt[k]-1)+k, {k, RealDigits[Pi, 10, terms][[1]]}];
%t A065254 Sort[{a065253[#], #}& /@ Range[terms]][[All, 2]] // Rest (* _Jean-François Alcover_, Jan 22 2020 *)
%o A065254 (Haskell)
%o A065254 import Data.List (elemIndex); import Data.Maybe (fromJust)
%o A065254 a065254 = (+ 1) . fromJust . (`elemIndex` a065253_list)
%o A065254 -- _Reinhard Zumkeller_, Jul 14 2013
%Y A065254 Cf. A065253.
%K A065254 base,nice,nonn
%O A065254 1,1
%A A065254 Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de), Oct 26 2001