A355297 a(n) = A007088(n) mod n.

0, 0, 2, 0, 1, 2, 6, 0, 2, 0, 10, 8, 9, 4, 1, 0, 5, 2, 17, 0, 0, 12, 14, 8, 1, 12, 22, 12, 23, 10, 13, 0, 11, 16, 16, 20, 16, 18, 37, 0, 18, 0, 4, 32, 31, 2, 14, 32, 45, 10, 4, 16, 20, 4, 1, 8, 22, 56, 32, 40, 20, 6, 42, 0, 41, 44, 36, 24, 15, 20, 5, 56, 25, 12, 61, 28, 24, 58, 23, 0

Offset

1,3

Comments

a(n) = 0 see A032533, a(n) = 1 see A339567.

Links

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

Formula

a(n) = A007088(n) mod n. a(n) = A007088(n) - n * floor(A007088(n)/n).

Example

n = 7; a(7) = A007088(7) mod 7 = 111 mod 7 = 6.

Mathematica

a[n_] := Mod[FromDigits[IntegerDigits[n, 2]], n]; Array[a, 100] (* Amiram Eldar, Jun 27 2022 *)

Crossrefs

Cf. A007088, A032532, A032533, A339567.

Sequence in context: A127755 A180662 A318144 * A260663 A241857 A342020

Adjacent sequences: A355294 A355295 A355296 * A355298 A355299 A355300

Keyword

nonn,base

Author

Ctibor O. Zizka, Jun 27 2022

Status

approved