login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A325316 a(n) = A048250(n) OR A162296(n), where OR is the bitwise-OR, A003986. 3

%I

%S 1,3,4,7,6,12,8,15,13,18,12,28,14,24,24,31,18,31,20,26,32,36,24,60,31,

%T 42,36,56,30,72,32,63,48,54,48,79,38,60,56,90,42,96,44,52,62,72,48,

%U 124,57,91,72,58,54,108,72,120,80,90,60,104,62,96,104,127,84,144,68,126,96,144,72,191,74,114,124,124,96,168,80

%N a(n) = A048250(n) OR A162296(n), where OR is the bitwise-OR, A003986.

%H Antti Karttunen, <a href="/A325316/b325316.txt">Table of n, a(n) for n = 1..16384</a>

%H <a href="/index/Bi#binary">Index entries for sequences related to binary expansion of n</a>

%H <a href="/index/Si#SIGMAN">Index entries for sequences related to sigma(n)</a>

%F a(n) = A003986(A048250(n), A162296(n)).

%F a(n) = A000203(n) - A325318(n) = A325317(n) + A325318(n).

%t Array[BitOr @@ Map[Total, {#3, Complement[#2, #3]}] & @@ {#1, #2, Select[#2, SquareFreeQ]} & @@ {#, Divisors[#]} &, 79] (* _Michael De Vlieger_, Apr 21 2019 *)

%o (PARI)

%o A048250(n) = factorback(apply(p -> p+1,factor(n)[,1]));

%o A162296(n) = sumdiv(n, d, d*(1-issquarefree(d)));

%o A325316(n) = bitor(A048250(n),A162296(n));

%Y Cf. A000203, A003986, A048250, A162296, A325317, A325318.

%K nonn

%O 1,2

%A _Antti Karttunen_, Apr 21 2019

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 29 03:04 EST 2020. Contains 332353 sequences. (Running on oeis4.)