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