A337487 De Polignac numbers k > 1 such that k - 2^m is a de Polignac number for every 1 < 2^m < k.
1117175145, 2544265305, 3147056235, 3366991695, 3472109835, 3621922845, 3861518805, 4447794915, 4848148485, 5415281745, 5693877405, 7525056375, 7602256605, 9055691835, 9217432215, 13431856995, 16819230075, 19373391165, 21468020835, 24358769685, 27002844795, 30252463305, 33359739795
Offset: 1
Keywords
Links
- Amiram Eldar, Table of n, a(n) for n = 1..204 (terms below 10^12, calculated using the b-file at A156695)
Programs
-
Mathematica
A156695 = Cases[Import["https://oeis.org/A156695/b156695.txt", "Table"], {, }][[;; , 2]]; dePolQ[n_] := n > 3 && AllTrue[n - 2^Range[Floor[Log[2, n]]], !PrimeQ[#] &]; Select[A156695, dePolQ] (* Amiram Eldar, Aug 29 2020 *)
Comments