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

Author

Vladimir Joseph Stephan Orlovsky, Apr 06 2010

Keywords

• nonn

Comments

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

Crossrefs

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

Programs

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