login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A065254 "Inverse" to A065253. 2
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 (list; graph; refs; listen; history; text; internal format)
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
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
KEYWORD
base,nice,nonn
AUTHOR
Klaus Strassburger (strass(AT)ddfi.uni-duesseldorf.de), Oct 26 2001
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified March 28 22:04 EDT 2024. Contains 371254 sequences. (Running on oeis4.)