1,1

Amiram Eldar, Table of n, a(n) for n = 1..10000

s[n_] := Module[{f = FactorInteger[n, GaussianIntegers->True]}, p = f[[;; , 1]]; e = f[[;; , 2]]; Im[Plus @@ ((If[Abs[#]==1, 0, #]& /@ p) * e)]]; s /@ Select[ Range[100], PrimeQ] (* Amiram Eldar, Feb 28 2020 *)

Cf. A078908, A078909, A080088.

Sequence in context: A102390 A127640 A113303 * A322841 A291044 A113290

Adjacent sequences: A080086 A080087 A080088 * A080090 A080091 A080092

nonn

Vladeta Jovovic, Jan 27 2003

approved