login
A247879
Inverse permutation to A248025.
2
1, 4, 7, 10, 13, 16, 19, 22, 25, 2, 3, 28, 37, 40, 55, 64, 67, 82, 91, 5, 6, 33, 43, 53, 57, 70, 77, 90, 94, 8, 9, 29, 46, 51, 59, 73, 81, 89, 97, 11, 12, 34, 38, 49, 61, 66, 76, 88, 100, 14, 15, 30, 41, 44, 63, 69, 80, 87, 103, 17, 18, 35, 47, 54, 56, 72
OFFSET
1,2
PROG
(Haskell)
import Data.List (elemIndex); import Data.Maybe (fromJust)
a247879 = (+ 1) . fromJust . (`elemIndex` a248025_list)
CROSSREFS
Cf. A248025.
Sequence in context: A184927 A026314 A070300 * A360472 A190084 A145289
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Sep 30 2014
STATUS
approved