OFFSET
1,2
LINKS
Nathaniel Johnston, Table of n, a(n) for n = 1..10000
MAPLE
Omega:=proc(n)return nops(factorset(n)):end:for n from 1 to 1000 do
if(not isprime(n) and 2*Omega(4*n)=Omega(4*n+2))then printf("%d, ", n); fi:od: # Nathaniel Johnston, Apr 19 2011
MATHEMATICA
Select[Range[1000], ! PrimeQ[#] && 2*PrimeNu[4 #] == PrimeNu[4 # + 2] &] (* T. D. Noe, Apr 21 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, Apr 19 2011
STATUS
approved