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.

Showing 1-3 of 3 results.

A117925 Fixed points of A055265, A117922, A117923 and A117924.

Original entry on oeis.org

1, 2, 3, 4, 6, 8, 9, 10, 14, 18, 19, 21, 23, 24, 28, 33, 35, 42, 50, 56, 57, 62, 68, 81, 82, 111, 116, 120, 137, 143, 149, 156, 159, 166, 168, 169, 173, 186, 200, 201, 204, 206, 212, 218, 226, 234, 237, 253, 263, 266, 269, 273, 274, 277, 282, 284, 285, 286, 288
Offset: 1

Views

Author

Reinhard Zumkeller, Apr 03 2006

Keywords

Comments

a(n) = A055265(a(n)) = A117922(a(n)) = A117923(a(n)) = A117924(a(n)).

Crossrefs

Programs

  • PARI
    a(n)=v=[1];k=1;while(#v<=n,if(isprime(k+v[#v])&&!vecsearch(vecsort(v),k),v=concat(v,k);k=0);k++);v[#v-1]
    n=1;while(n<1000,if(a(n)==n,print1(n,", "));n++) \\ Derek Orr, Jun 08 2015

A117922 Inverse of A055265, assuming it is a permutation, as conjectured.

Original entry on oeis.org

1, 2, 3, 4, 7, 6, 5, 8, 9, 10, 17, 16, 11, 14, 13, 12, 15, 18, 19, 22, 21, 20, 23, 24, 29, 32, 31, 28, 25, 26, 27, 36, 33, 30, 35, 40, 41, 34, 37, 38, 43, 42, 39, 48, 47, 54, 51, 44, 45, 50, 55, 46, 49, 52, 53, 56, 57, 64, 69, 72, 59, 62, 67, 66, 61, 60, 71, 68, 63, 58, 73, 70
Offset: 1

Views

Author

Reinhard Zumkeller, Apr 03 2006

Keywords

Crossrefs

A117924(n) = a(a(n)); A117925 lists fixed points.

Programs

  • Haskell
    import Data.List (elemIndex)
    import Data.Maybe (fromJust)
    a117922 = (+ 1) . fromJust . (`elemIndex` a055265_list)
    -- Reinhard Zumkeller, Feb 14 2013

Extensions

Edited by M. F. Hasler, Dec 14 2015

A117923 A055265(A055265(n)).

Original entry on oeis.org

1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 15, 12, 17, 14, 11, 16, 13, 18, 19, 20, 21, 22, 23, 24, 25, 34, 27, 28, 29, 38, 31, 30, 33, 40, 35, 26, 43, 36, 41, 32, 39, 42, 37, 44, 53, 54, 49, 48, 55, 50, 45, 46, 51, 52, 47, 56, 57, 72, 65, 64, 73, 62, 59, 70, 71, 58, 69, 68, 61, 60, 63, 66
Offset: 1

Views

Author

Reinhard Zumkeller, Apr 03 2006

Keywords

Comments

a(n) = A117924(n) for n<= 25;
Permutation of the natural numbers, inverse: A117924;
fixed points: A117925.
Showing 1-3 of 3 results.