login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A189936 Odd numbers in A076763. 1
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

G. C. Greubel, Table of n, a(n) for n = 1..5000

FORMULA

a(n) = A005408(k) = A076763(m).

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 *)

CROSSREFS

Cf. A001221, A076763, A013590, A118678, A154430.

Sequence in context: A154430 A118678 A152940 * A076762 A036798 A119434

Adjacent sequences:  A189933 A189934 A189935 * A189937 A189938 A189939

KEYWORD

nonn

AUTHOR

Juri-Stepan Gerasimov, May 01 2011

EXTENSIONS

Corrected by R. J. Mathar, May 26 2011

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified May 25 15:15 EDT 2019. Contains 323568 sequences. (Running on oeis4.)