OFFSET
1,1
LINKS
Reinhard Zumkeller, Table of n, a(n) for n = 1..10000
FORMULA
EXAMPLE
a(3) = 11 = 3 + 2^3 = 7 + 2^2.
MATHEMATICA
With[{upto=300}, Select[Union[Select[Flatten[Outer[Plus, Prime[Range[ PrimePi[upto]]], 2^Range[0, Floor[Log[2, upto]]]]], PrimeQ]], #<=upto&]] (* Harvey P. Dale, Feb 28 2012 *)
PROG
(Haskell)
a065380 n = a065380_list !! (n-1)
a065380_list = filter f a000040_list where
f p = any ((== 1) . a010051 . (p -)) $ takeWhile (<= p) a000079_list
-- Reinhard Zumkeller, Nov 24 2011
CROSSREFS
KEYWORD
nonn
AUTHOR
Reinhard Zumkeller, Nov 03 2001
STATUS
approved