login
First differences of A219960.
3

%I #5 Dec 04 2012 14:06:50

%S 314,11,335,110,162,25,94,47,119,21,98,377,46,97,1,151,133,97,23,194,

%T 23,53,255,5,2,24,27,21,228,238,18,47,40,64,22,48,12,56,107,22,12,86,

%U 68,89,26,200,39,30,2,95,14,21,189,21,59,19,27,63,7,44,98,40

%N First differences of A219960.

%C Conjecture: 1 appears infinitely often in this sequence (indicating an infinite number of pairs of consecutive integers in the parent sequence), despite very few appearances compared with A219552, which is derived from a very similar process.

%H Carl R. White, <a href="/A219961/b219961.txt">Table of n, a(n) for n = 1..10000</a>

%t f[n_] := Ceiling[Sqrt[n]]*(Ceiling[Sqrt[n]]^2 - n); t = Select[Range[10000], NestWhileList[f, #, UnsameQ, All][[-1]] > 0 &]; Differences[t] (* _T. D. Noe_, Dec 04 2012 *)

%Y Cf. A219960, A219552, A219962

%K nonn

%O 1,1

%A _Carl R. White_, Dec 02 2012