A348122 Numbers k such that k and k+1 both have more nonunitary than unitary prime divisors (A348121).

8, 288, 360, 675, 1224, 1331, 1368, 2196, 2400, 2600, 2808, 3024, 5328, 6075, 6859, 9408, 9800, 10647, 11448, 12167, 16128, 17199, 19844, 20448, 21024, 23275, 25920, 26568, 26900, 28899, 29791, 33524, 38024, 38808, 39600, 40400, 41624, 42875, 45324, 46224, 46475

Offset: 1

Author

Amiram Eldar, Oct 01 2021

Keywords

• nonn

Examples

			8 is a term since 8 = 2^3 has one nonunitary prime divisor, 2, and no unitary prime divisors, and 8 + 1 = 9 = 3^2 has one nonunitary prime divisor, 3, and no unitary prime divisors.
		

Links

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

Crossrefs

Subsequence of A348121.

A060355 is a subsequence.

Similar sequence: A348119.

Programs

Mathematica

q[n_] := 2*Count[(e = FactorInteger[n][[;; , 2]]), 1] < Length[e]; Select[Range[5*10^5], q[#] && q[# + 1] &]