OFFSET
1,1
LINKS
Amiram Eldar, Table of n, a(n) for n = 1..10000
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
MATHEMATICA
With[{b = DigitCount[Prime[Range[200]], 2, 1]}, Rest@ Prime[Position[2*b - 1 - FoldList[Max, b], _?(# <= 0 &)] // Flatten]] (* Amiram Eldar, Jul 25 2023 *)
CROSSREFS
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