OFFSET
0,4
COMMENTS
a(n) < 10^n*exp(-(n*log(10))^c) for some c.
LINKS
Carlos Rivera, Puzzle 219. Polignac numbers, The Prime Puzzles and Problems Connection.
MATHEMATICA
dePolignacQ[n_] := OddQ[n] && Module[{m = 2}, While[n > m + 1 && ! PrimeQ[n - m], m *= 2]; n <= m + 1]; seq[max_] := Module[{p = 10, c = 1, s = {0}}, Do[If[dePolignacQ[k], c++]; If[k == p, p *= 10; AppendTo[s, c]], {k, 5, 10^max}]; s]; seq[6] (* Amiram Eldar, Feb 04 2021 *)
CROSSREFS
KEYWORD
nonn,more
AUTHOR
Arkadiusz Wesolowski, Mar 16 2015
EXTENSIONS
a(9) from Arkadiusz Wesolowski, Feb 09 2016
a(10)-a(11) from Amiram Eldar, Feb 04 2021
STATUS
approved