|
%I #9 Oct 20 2016 03:48:05
%S 12,11,9,28,36,44,52,20,40,68,76,84,92,100,53,55,116,124,132,140,148,
%T 156,128,36,172,180,188,196,204,212,209,11,228,11,225,244,252,260,268,
%U 276,284,292,300,56,252,316,324,332,340,348,356,364,372,380,45,343
%N First differences of A097764.
%C a(n) = A097764(n+1) - A097764(n);
%C conjecture: a(n) > 1; empirically: Min{a(n): 1 <= n <= 10^7} = 9;
%C a(A255137(n)) = A255136(n) and a(m) < A255136(n) for m < A255137(n).
%H Reinhard Zumkeller, <a href="/A255134/b255134.txt">Table of n, a(n) for n = 1..10000</a>
%t 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 (Haskell)
%o a255134 n = a255134_list !! (n-1)
%o a255134_list = zipWith (-) (tail a097764_list) a097764_list
%Y Cf. A097764, record values and where they occur: A255136, A255137.
%K nonn
%O 1,1
%A _Reinhard Zumkeller_, Feb 14 2015
|
