OFFSET
1,2
COMMENTS
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..10000
EXAMPLE
a(5) = 35 because Omega(35) = 2 and Omega(35 - 2) = Omega(33) = 2.
MAPLE
with(numtheory):
isA200925 := proc(n)
bigomega(n-bigomega(n)) = bigomega(n) ;
end proc:
for n from 1 to 400 do
if isA200925(n) then printf("%d, ", n) ; end if;
end do: # R. J. Mathar, Nov 282 2011
MATHEMATICA
Select[Range[329], PrimeOmega[#] == PrimeOmega[# - PrimeOmega[#]] &] (* T. D. Noe, Nov 29 2011 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Michel Lagneau, Nov 24 2011
STATUS
approved