OFFSET
1,1
COMMENTS
Except for p=2, omega(4p) = 2, so except for the initial 2, these are the primes p such that omega(4p+2) = 4.
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1100
MATHEMATICA
Select[Range[1000], PrimeQ[#] && 2*PrimeNu[4 #] == PrimeNu[4 # + 2] &] (* T. D. Noe, Apr 21 2011 *)
Select[Prime[Range[300]], 2*PrimeNu[4#]==PrimeNu[4#+2]&] (* Harvey P. Dale, Aug 28 2022 *)
PROG
(PARI) forprime(p=2, 1400, if(2*omega(4*p)=omega(4*p+2), print1(p", ")))
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Apr 19 2011
STATUS
approved