A067575 -id:A067575 - cp's OEIS frontend

A193022 Numbers k that divide (omega(k)*Omega(k))^k.

1, 4, 12, 16, 18, 27, 64, 80, 96, 144, 200, 216, 256, 324, 448, 486, 500, 729, 768, 1024, 1152, 1250, 1568, 1728, 2560, 2592, 3125, 3840, 3888, 4096, 5488, 5760, 5832, 6144, 6400, 8640, 8748, 9216, 9600, 11264, 12960, 13122, 13824, 14400, 16000, 16384

Offset: 1

Graph
List
Refs
Listen
History
Text
Internal format

Arkadiusz Wesolowski, Jul 14 2011

nonn

This is not a subsequence of A067575: 3840 belongs to this sequence but not to A067575.

Also numbers k such that rad(k) = rad(omega(k)*bigomega(k)) where rad is A007947. [Charles R Greathouse IV, Jul 18 2011]

Arkadiusz Wesolowski, Table of n, a(n) for n = 1..400

Cf. A001221 (omega), A001222 (Omega), A007947, A067575.

Select[Range[12960], PowerMod[PrimeNu[#] PrimeOmega[#], #, #] == 0 &] (* T. D. Noe, Jul 14 2011 *)

for(n=1, 2^14, if(lift(Mod((omega(n)*bigomega(n))^n, n))==0, print1(n, ", "))); \\ Arkadiusz Wesolowski, Jul 18 2011

cp's OEIS Frontend

A193022 Numbers k that divide (omega(k)*Omega(k))^k.

Views

Author

Keywords

Comments

Links

Crossrefs

Programs

Mathematica

PARI