A219961 First differences of A219960.
314, 11, 335, 110, 162, 25, 94, 47, 119, 21, 98, 377, 46, 97, 1, 151, 133, 97, 23, 194, 23, 53, 255, 5, 2, 24, 27, 21, 228, 238, 18, 47, 40, 64, 22, 48, 12, 56, 107, 22, 12, 86, 68, 89, 26, 200, 39, 30, 2, 95, 14, 21, 189, 21, 59, 19, 27, 63, 7, 44, 98, 40
Offset: 1
Keywords
Links
- Carl R. White, Table of n, a(n) for n = 1..10000
Programs
-
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 *)
Comments