This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A255134 #9 Oct 20 2016 03:48:05 %S A255134 12,11,9,28,36,44,52,20,40,68,76,84,92,100,53,55,116,124,132,140,148, %T A255134 156,128,36,172,180,188,196,204,212,209,11,228,11,225,244,252,260,268, %U A255134 276,284,292,300,56,252,316,324,332,340,348,356,364,372,380,45,343 %N A255134 First differences of A097764. %C A255134 a(n) = A097764(n+1) - A097764(n); %C A255134 conjecture: a(n) > 1; empirically: Min{a(n): 1 <= n <= 10^7} = 9; %C A255134 a(A255137(n)) = A255136(n) and a(m) < A255136(n) for m < A255137(n). %H A255134 Reinhard Zumkeller, <a href="/A255134/b255134.txt">Table of n, a(n) for n = 1..10000</a> %t A255134 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_ *) %o A255134 (Haskell) %o A255134 a255134 n = a255134_list !! (n-1) %o A255134 a255134_list = zipWith (-) (tail a097764_list) a097764_list %Y A255134 Cf. A097764, record values and where they occur: A255136, A255137. %K A255134 nonn %O A255134 1,1 %A A255134 _Reinhard Zumkeller_, Feb 14 2015