A065253 -id:A065253 - cp's OEIS frontend

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

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

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.

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
Index entries for sequences that are permutations of the natural numbers

Cf. A065253.

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

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

cp's OEIS Frontend

A065254 "Inverse" to A065253.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Haskell

Mathematica