This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.
%I A176036 #2 Mar 31 2012 12:38:35 %S A176036 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, %T A176036 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, %U A176036 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 %N A176036 Absolute values of A176035(n)-A176034(n). %C A176036 3-2=1, 6-1=5, 5-2=3, 6-1=5, 5-4=1,.. %t A176036 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 %Y A176036 Cf. A006881, A056892, A106044, A176032, A176033, A176034, A176035 %K A176036 nonn %O A176036 1,2 %A A176036 _Vladimir Joseph Stephan Orlovsky_, Apr 06 2010