%I #2 Mar 31 2012 12:38:35

%S 1,1,3,1,3,1,7,3,5,3,1,11,3,1,9,7,5,9,11,3,1,13,15,3,13,19,15,7,3,5,

%T 11,3,9,13,15,11,1,13,21,19,7,3,17,21,27,23,1,25,27,23,15,3,1,21,31,

%U 19,7,3,9,17,21,27,1,9,13,21,23,11,9,13,21,33,27,15,3,5,17,33,39,23,3,1,21,25

%N Absolute values of A106044-A056892.

%C A106044 2,1,4,2,5,3,8,6,2,7,5,12,8,6,2,11,.. A056892 1,2,1,3,2,4,1,3,7,4,6,1,5,7,11,4,10,.. 2-1=1,2-1=1,4-1=3,3-2=1,5-2=3,...

%t f[n_]:=Floor[Sqrt[n]];lst={};Do[p=Prime[n];AppendTo[lst,Abs[((f[p]+1)^2-p)-(p-f[p]^2)]],{n,3*5!}];lst

%Y Cf. A056892, A106044

%K nonn

%O 1,3

%A _Vladimir Joseph Stephan Orlovsky_, Apr 06 2010