login

Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.

signum(round(n^(1/Omega(n)))^Omega(n) - n), where Omega(n) is the total number of prime factors of n (A001222).
2

%I #3 Mar 30 2012 18:50:30

%S 0,0,0,0,0,-1,0,0,0,-1,0,-1,0,1,1,0,0,1,0,1,1,1,0,-1,0,-1,0,-1,0,-1,0,

%T 0,1,1,1,-1,0,-1,-1,1,0,-1,0,1,1,1,0,-1,0,1,-1,1,0,1,-1,1,1,1,0,1,0,1,

%U 1,0,-1,-1,0,-1,-1,-1,0,-1,0,1,-1,-1,1,-1,0,-1,0,-1,0,-1,-1,-1,-1,-1,0,-1,1,1,1,1,1,-1

%N signum(round(n^(1/Omega(n)))^Omega(n) - n), where Omega(n) is the total number of prime factors of n (A001222).

%C a(m) = 0 iff m is a prime power (A000961).

%Y a(n)=A057427(A079869(n) - n).

%K sign

%O 1,1

%A _Reinhard Zumkeller_, Jan 13 2003