Two or three more sequences??

[Maximilian Hasler]

sorry I have problems with doubly negated logic (non ...-free)

> >     2.  Non-squarefree such numbers (see above)

 for(n=1,5e6,eulerphi(n)
==2*eulerphi(sigma(n))&vecmax(factor(n)[,2])>1&print1(n", "))

5491, 8075, 25317, 27455, 71383, 72283, 76131, 104975, 138575, 193041,
203167, 295569, 295947, 298775, 334951, 356915, 361415, 400843,
451535, 492275, 509575, 572975, 589475, 595975, 654493, 683757,
815975, 862087, 876627, 919075, 936729, 939679, 1015835, 1059763,
1147025, 1267775, 1480325, 1521007, 1544337, 1558475, 1586763,
1642075, 1674755, 1718683, 1732555, 1801475, 1811079, 1848141,
1874331, 1964375, 2004215, 2069469, 2179927, 2236775, 2257675,
2311711, 2509387, 2509533, 2527475, 2641171, 2674471, 2816847,
2840275, 2970631, 3034031, 3205775, 3399575, 3560191, 3629551,
3647367, 3690275, 3695443, 3753575, 3874623, 3879247, 3884075,
3974769, 4024903, 4075803, 4156687, 4310435, 4354363, 4368575,
4409263, 4473387, 4631155, 4633533, 4643991, 4666483, 4698395,
4815607, 4886181, 4949975,

Maximilian