login
Search: a176035 -id:a176035
     Sort: relevance | references | number | modified | created      Format: long | short | data
Absolute values of A176035(n)-A176034(n).
+20
0
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,..
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
KEYWORD
nonn
AUTHOR
STATUS
approved

Search completed in 0.005 seconds