|
|
|
|
|
|
|
|
|
#19 by Alois P. Heinz at Mon Feb 10 17:40:35 EST 2020
|
|
|
|
|
|
|
|
#18 by Amiram Eldar at Mon Feb 10 17:26:07 EST 2020
|
|
|
|
|
|
|
|
#17 by Amiram Eldar at Mon Feb 10 17:22:01 EST 2020
|
|
| MATHEMATICA
|
f[p_, e_] := If[Mod[p, 3] == 1, 2, 1]; eisOmega[1] = 0; eisOmega[n_] := Plus @@ f @@@ FactorInteger[n]; Array[eisOmega, 100] (* Amiram Eldar, Feb 10 2020*) *)
|
|
|
|
|
|
|
#16 by Amiram Eldar at Mon Feb 10 17:05:55 EST 2020
|
|
| MATHEMATICA
|
f[p_, e_] := If[Mod[p, 3] == 1, 2, 1]; eisOmega[1] = 0; eisOmega[n_] := Plus @@ f @@@ FactorInteger[n]; Array[eisOmega, 100] (* Amiram Eldar, Feb 10 2020*)
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#15 by Joerg Arndt at Wed Oct 03 10:37:13 EDT 2018
|
|
|
|
|
|
|
|
#14 by Jianing Song at Tue Oct 02 22:08:11 EDT 2018
|
|
|
|
|
|
|
|
#13 by Jianing Song at Tue Oct 02 22:03:50 EDT 2018
|
|
| LINKS
|
Jianing Song, <a href="/A319443/b319443.txt">Table of n, a(n) for n = 1..10000</a>
|
|
| STATUS
|
approved
editing
|
|
|
|
|
|
|
#12 by Susanna Cuyler at Mon Sep 24 08:50:28 EDT 2018
|
|
|
|
|
|
|
|
#11 by Jianing Song at Mon Sep 24 00:33:42 EDT 2018
|
|
|
|
|
|
|
|
#10 by Jianing Song at Sun Sep 23 23:35:08 EDT 2018
|
|
| COMMENTS
|
Let s(n) be the smallest k with a(k) = n, then we have: s(0) = 1, s(1) = 2, s(2) = 6, s(2n-1) = 2*A121940(n-1), s(2n) = 6*A121940(n-1).
|
|
| CROSSREFS
|
Cf. A121940.
|
|
|
|
|
|
