A176036 Absolute values of A176035(n)-A176034(n).

1, 5, 3, 5, 1, 3, 9, 5, 7, 9, 9, 7, 7, 11, 3, 1, 3, 11, 15, 7, 3, 9, 17, 11, 9, 7, 1, 5, 7, 9, 9, 1, 9, 15, 17, 21, 19, 7, 1, 3, 17, 19, 21, 23, 21, 3, 3, 5, 9, 19, 11, 9, 1, 5, 9, 23, 19, 17, 15, 11, 9, 3, 5, 7, 9, 13, 15, 17, 21, 29, 11, 7, 13, 17, 25, 27, 27, 21, 15, 11, 3, 11, 29, 31, 23, 17

Offset

1,2

Comments

3-2=1, 6-1=5, 5-2=3, 6-1=5, 5-4=1,..

Links

Table of n, a(n) for n=1..86.

Mathematica

f1[n_]:=Floor[Sqrt[n]]; f2[n_]:=Last/@FactorInteger[n]=={1, 1}; lst={}; Do[If[f2[n], AppendTo[lst, Abs[(n-f1[n]^2)-((f1[n]+1)^2-n)]]], {n, 0, 5!}]; lst

Crossrefs

Cf. A006881, A056892, A106044, A176032, A176033, A176034, A176035

Sequence in context: A267445 A071050 A271780 * A194624 A239805 A333236

Adjacent sequences: A176033 A176034 A176035 * A176037 A176038 A176039

Keyword

nonn

Author

Vladimir Joseph Stephan Orlovsky, Apr 06 2010

Status

approved