|
%I #12 Jun 20 2021 18:42:15
%S 8,10,12,24,36,38,58,60,68,84,86,100,102,110,112,120,134,138,144,154,
%T 172,178,184,188,204,216,230,240,244,276,284,288,300,302,320,342,346,
%U 360,368,372,374,378,384,394,396,404,408,428,432,436,440,456,466,472
%N Even numbers n such that n-2 and n+2 have the same number of prime divisors with multiplicity.
%H Amiram Eldar, <a href="/A115168/b115168.txt">Table of n, a(n) for n = 1..10000</a>
%p g(n) = forstep(x=4,n,2,p1=bigomega(x-2);p2=bigomega(x+2);if(p1==p2,print(x",")))
%t Select[Range[4, 472, 2], PrimeOmega[# - 2] == PrimeOmega[# + 2] &] (* _Amiram Eldar_, Sep 23 2019 *)
%t 2*Mean/@SequencePosition[Table[PrimeOmega[n],{n,2,500,2}],{x_,_,x_}] (* Requires Mathematica version 10 or later *) (* _Harvey P. Dale_, Jun 20 2021 *)
%K easy,nonn
%O 1,1
%A _Cino Hilliard_, Mar 03 2006
|
