A048169 n is divisible by the cube of the number of unitary divisors of n (A034444).

1, 8, 16, 32, 64, 128, 192, 256, 320, 384, 448, 512, 576, 640, 704, 768, 832, 896, 1024, 1088, 1152, 1216, 1280, 1408, 1472, 1536, 1600, 1664, 1728, 1792, 1856, 1984, 2048, 2176, 2304, 2368, 2432, 2560, 2624, 2752, 2816, 2944, 3008, 3072, 3136, 3200, 3328

Offset

1,2

Links

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

Example

a[ 54 ]=x=3968=128*31 has 4 unitary divisors: {1,3968,128,31} and the cube, 64, divides 3968: q=3968/64=62.

Mathematica

Select[Range[3400], Divisible[#, 8^PrimeNu[#]] &] (* Amiram Eldar, Aug 05 2019 *)

Crossrefs

A034444, A046755, A048166-A048168.

Sequence in context: A345053 A256817 A281016 * A089882 A335850 A206375

Adjacent sequences: A048166 A048167 A048168 * A048170 A048171 A048172

Keyword

nonn

Author

Labos Elemer

Status

approved