OFFSET
1,1
COMMENTS
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.
LINKS
Carl R. White, Table of n, a(n) for n = 1..10000
MATHEMATICA
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 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
Carl R. White, Dec 02 2012
STATUS
approved