login
A176032
Absolute values of A106044-A056892.
3
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, 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, 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
OFFSET
1,3
COMMENTS
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,...
MATHEMATICA
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
CROSSREFS
KEYWORD
nonn
AUTHOR
STATUS
approved