OFFSET
1,1
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..5000
MAPLE
omega := proc(n) nops( numtheory[factorset](n)) ; end proc:
isA076763 := proc(n) omega(n) > omega(n-1) and omega(n) > omega(n+1) ; end proc:
isA189936 := proc(n) type(n, 'odd') and isA076763(n) ; end proc:
for n from 1 to 2000 by 2 do if isA189936(n) then printf("%d, ", n) ; end if; end do; # R. J. Mathar, May 26 2011
MATHEMATICA
Select[Range[1, 2000, 2], PrimeNu[# - 1] < PrimeNu[#] > PrimeNu[# + 1]&] (* Jean-François Alcover, Nov 14 2016 *)
Select[#[[2, 1]]&/@Select[Partition[Table[{n, PrimeNu[n]}, {n, 2000}], 3, 1], #[[1, 2]] <#[[2, 2]]>#[[3, 2]]&], OddQ] (* Harvey P. Dale, Sep 15 2019 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Juri-Stepan Gerasimov, May 01 2011
EXTENSIONS
Corrected by R. J. Mathar, May 26 2011
STATUS
approved