proposed
approved
editing
proposed
1, 5, 13, 19, 32, 53, 89, 139, 199, 293, 887, 1129, 1331, 5591, 8467, 9551, 15683, 19609, 31397, 155921, 360653, 370261, 492113, 1349533, 1357201, 2010733, 4652353, 17051707, 20831323, 47326693, 122164747, 189695659, 191912783, 387096133, 436273009, 1294268491
a(80)-a(87) and b-file from Jan Kristian Haugland, Oct 18 2024: The extra terms are copied from A002386 as the associated prime gaps do not contain any prime powers.
proposed
editing
editing
proposed
Donovan Johnson, Jan Kristian Haugland, <a href="/A002540/b002540_1.txt">Table of n, a(n) for n = 1..87</a> (terms 1..79</a> from Donovan Johnson)
a(28)-a(79) and b-file from Donovan Johnson, Nov 14 2008
a(80)-a(87) and b-file from Jan Kristian Haugland, Oct 18 2024: The extra terms are copied from A002386 as the associated prime gaps do not contain any prime powers.
approved
editing
editing
approved
Join[{1}, Rest[Module[{nn=5*10^6, pps}, pps=Select[Range[nn], PrimePowerQ]; DeleteDuplicates[ Thread[{Most[ pps], Differences[ pps]}], GreaterEqual[ #1[[2]], #2[[2]]]&]][[;; , 1]]]] (* The program generates the first 27 terms of the sequence. *) (* Harvey P. Dale, Aug 20 2024 *)
approved
editing
reviewed
approved
proposed
reviewed