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

 

Logo

"Email this user" was broken Aug 14 to 9am Aug 16. If you sent someone a message in this period, please send it again.

Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A177835 Primes p for which a smaller prime q exists with A000120(q) >= 2*A000120(p)-1. 1
17, 37, 41, 67, 73, 97, 131, 137, 139, 149, 163, 193, 197, 257, 263, 269, 277, 281, 293, 337, 353, 389, 401, 449, 521, 523, 547, 577, 593, 641, 643, 673, 769, 773, 1031, 1033, 1039, 1049, 1051, 1061, 1063, 1069, 1091, 1093, 1097, 1109, 1123, 1129, 1153, 1163, 1171 (list; graph; refs; listen; history; text; internal format)
OFFSET

1,1

COMMENTS

See A177836 for a comparison with A095075.

LINKS

Table of n, a(n) for n=1..51.

MAPLE

read("transforms") ; A000120 := proc(n) wt(n) ; end proc:

isA177835 := proc(p) if isprime(p) then q := 2 ; while q < p do if A000120(q) >= 2*A000120(p)-1 then return true; end if; q := nextprime(q) ; end do: return false; else false; end if; end proc:

for i from 1 to 2000 do if isA177835(ithprime(i)) then printf("%d, ", ithprime(i)) ; end if; end do: # R. J. Mathar, May 31 2010

CROSSREFS

Cf. A000120, A014499, A095075, A061712 A177768.

Sequence in context: A190755 A098849 A217195 * A075698 A165493 A059425

Adjacent sequences:  A177832 A177833 A177834 * A177836 A177837 A177838

KEYWORD

nonn,easy,base

AUTHOR

Vladimir Shevelev, May 14 2010

EXTENSIONS

keyword:base and more terms added by R. J. Mathar, May 31 2010

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 | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified August 18 12:24 EDT 2017. Contains 290720 sequences.