A090811 Next new gap between successive prime powers.
1, 2, 3, 4, 5, 6, 8, 10, 12, 14, 9, 20, 7, 18, 22, 30, 16, 26, 28, 24, 32, 17, 34, 36, 44, 42, 27, 40, 52, 48, 38, 72, 50, 62, 54, 60, 58, 15, 46, 56, 64, 29, 68, 86, 66, 70, 78, 76, 82, 96, 112, 100, 74, 90, 84, 114, 21, 80, 88, 98, 92
Offset: 1
Programs
-
Mathematica
DeleteDuplicates[Differences[Select[Range[1000000],PrimePowerQ]]] (* Harvey P. Dale, Oct 21 2018 *)