A357073 For n >= 1, a(n) = A003714(n) mod n.

0, 0, 1, 1, 3, 3, 3, 0, 8, 8, 9, 9, 6, 5, 4, 4, 3, 4, 3, 2, 1, 21, 20, 20, 19, 20, 19, 18, 22, 21, 20, 20, 19, 26, 24, 22, 21, 19, 19, 17, 15, 18, 16, 14, 13, 11, 19, 17, 15, 14, 12, 12, 10, 8, 36, 33, 30, 28, 25, 24, 21, 18, 20, 17, 14, 12, 9, 16, 13, 10, 8, 5

Offset

1,5

Comments

a(n) = 0 see A276488.

Links

Table of n, a(n) for n=1..72.

Formula

a(n) = A003714(n) mod n.

Example

a(5) = A003714(5) mod 5 = 8 mod 5 = 3.

Mathematica

fib = Select[Range[300], BitAnd[#, 2*#] == 0 &]; Mod[fib, Range[Length[fib]]] (* Amiram Eldar, Sep 10 2022 *)

Prog

(Python)
def A357073(n):
    tlist, s, m = [1, 2], 0, n
    while (t:=tlist[-1]+tlist[-2]) <= n:
        tlist.append(t)
    for d in tlist[::-1]:
        s = (s<<1)%n
        if d <= m:
            s = (s+1)%n
            m -= d
    return s # Chai Wah Wu, Sep 11 2022

Crossrefs

Cf. A003714, A276488.

Sequence in context: A202698 A320785 A164884 * A019801 A086634 A066601

Adjacent sequences: A357070 A357071 A357072 * A357074 A357075 A357076

Keyword

nonn

Author

Ctibor O. Zizka, Sep 10 2022

Status

approved