A381213 Numbers k such that A381201(k) != A381203(k).

16, 48, 64, 80, 112, 144, 162, 176, 192, 208, 240, 256, 272, 304, 320, 324, 336, 368, 400, 432, 448, 464, 496, 528, 560, 576, 592, 624, 648, 656, 688, 704, 720, 729, 752, 768, 784, 810, 816, 832, 848, 880, 912, 944, 960, 976, 1008, 1024, 1040, 1072, 1088, 1104

Offset: 1

Author

Paolo Xausa, Feb 17 2025

Keywords

• nonn
• easy

Links

• Paolo Xausa, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A381201, A381203.

Programs

Mathematica

A381213Q[n_] := Times @@ # != LCM @@ # & [Union[Flatten[FactorInteger[n]]]];
Select[Range[2000], A381213Q]