A255134 First differences of A097764.

12, 11, 9, 28, 36, 44, 52, 20, 40, 68, 76, 84, 92, 100, 53, 55, 116, 124, 132, 140, 148, 156, 128, 36, 172, 180, 188, 196, 204, 212, 209, 11, 228, 11, 225, 244, 252, 260, 268, 276, 284, 292, 300, 56, 252, 316, 324, 332, 340, 348, 356, 364, 372, 380, 45, 343

Offset: 1

Author

Reinhard Zumkeller, Feb 14 2015

Keywords

• nonn

Comments

a(n) = A097764(n+1) - A097764(n);

conjecture: a(n) > 1; empirically: Min{a(n): 1 <= n <= 10^7} = 9;

a(A255137(n)) = A255136(n) and a(m) < A255136(n) for m < A255137(n).

Links

• Reinhard Zumkeller, Table of n, a(n) for n = 1..10000

Crossrefs

Cf. A097764, record values and where they occur: A255136, A255137.

Programs

Haskell

a255134 n = a255134_list !! (n-1)
a255134_list = zipWith (-) (tail a097764_list) a097764_list

Mathematica

nMax = 10000; n = 1; lst = Reap[While[p = Prime[n]; p^p <= nMax, k = 1; While[(k*p)^p <= nMax, Sow[(k*p)^p]; k++]; n++]][[2, 1]]; Union[lst] // Differences (* Jean-François Alcover, Oct 20 2016, after T. D. Noe *)