A355177 Numbers k such that omega(k^2 - 1) = omega(k) where omega(k) = A001221(k).

2, 3, 6, 10, 12, 15, 18, 24, 26, 28, 33, 48, 63, 66, 70, 72, 78, 80, 82, 84, 90, 105, 108, 110, 114, 120, 130, 132, 140, 156, 165, 170, 174, 182, 190, 192, 195, 222, 234, 238, 242, 252, 258, 264, 273, 276, 280, 290, 294, 306, 308, 310, 315, 318, 336, 342, 345, 350, 354, 357, 366, 372, 374, 378, 380, 385, 396, 399

Offset

1,1

Links

Table of n, a(n) for n=1..68.

Formula

A001221(a(n)) = A082863(a(n)).

Example

10 is in the sequence because A001221(10^2 - 1) = A001221(3*3*11) = 2 and A001221(10) = A001221(2*5) = 2.

Mathematica

Select[Range[400], PrimeNu[#] == PrimeNu[#^2 - 1] &] (* Amiram Eldar, Jun 22 2022 *)

Prog

(Magma) [n: n in [2..400] | #PrimeDivisors(n^2-1) eq #PrimeDivisors(n)];
(PARI) is(n)=omega(n)==omega(n-1)+omega(n+1)-(n%2) \\ Charles R Greathouse IV, Jul 01 2022

Crossrefs

Cf. A001221, A082863, A190789.

Sequence in context: A090695 A104074 A140785 * A038775 A065029 A239212

Adjacent sequences: A355174 A355175 A355176 * A355178 A355179 A355180

Keyword

nonn,easy

Author

Juri-Stepan Gerasimov, Jun 22 2022

Status

approved