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.
%I A355297 #10 Jul 02 2022 14:44:10 %S A355297 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, %T A355297 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, %U A355297 22,56,32,40,20,6,42,0,41,44,36,24,15,20,5,56,25,12,61,28,24,58,23,0 %N A355297 a(n) = A007088(n) mod n. %C A355297 a(n) = 0 see A032533, a(n) = 1 see A339567. %F A355297 a(n) = A007088(n) mod n. a(n) = A007088(n) - n * floor(A007088(n)/n). %e A355297 n = 7; a(7) = A007088(7) mod 7 = 111 mod 7 = 6. %t A355297 a[n_] := Mod[FromDigits[IntegerDigits[n, 2]], n]; Array[a, 100] (* _Amiram Eldar_, Jun 27 2022 *) %Y A355297 Cf. A007088, A032532, A032533, A339567. %K A355297 nonn,base %O A355297 1,3 %A A355297 _Ctibor O. Zizka_, Jun 27 2022