|
|
|
|
105, 165, 195, 255, 273, 315, 345, 357, 385, 399, 465, 483, 525, 555, 585, 627, 663, 693, 705, 735, 765, 777, 795, 897, 915, 957, 975, 1005, 1095, 1113, 1155, 1173, 1185, 1281, 1295, 1305, 1353, 1365, 1515, 1545, 1575, 1617, 1677, 1683, 1725, 1755, 1785, 1815, 1935, 1953
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
FORMULA
|
|
|
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
|
|
|
EXTENSIONS
|
|
|
STATUS
|
approved
|
|
|
|