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 A256245 #13 Mar 25 2015 01:59:03
%S A256245 1,0,2,4,0,1,3,0,9,2,0,8,1,0,7,3,0,6,2,0,5,1,0,4,8,0,3,7,0,2,6,0,1,5,
%T A256245 0,15,4,0,14,3,0,13,2,0,12,1,0,11,5,0,10,4,0,9,3,0,8,2,0,7,1,0,6,12,0,
%U A256245 5,11,0,4,10,0,3,9,0,2,8,0,1,7,0,21,6,0,20,5,0,19,4,0,18,3,0,17,2
%N A256245 a(n) is the smallest positive number m such that n+3*m is a square, or 0 if no such m exists.
%F A256245 a(n)=0 iff n==2 mod 3 because 2 is quadratic nonresidue of 3.
%e A256245 1 + 3*1 = 4 = 2^2, 3 + 3*2 = 9 = 3^2, 4 + 3*4 = 16 = 4^2.
%t A256245 Table[m = 1; If[Mod[n, 3] == 2, m = 0, While[! IntegerQ[Sqrt[n + 3*m]], m++]]; m, {n, 100}] (* _Michael De Vlieger_, Mar 20 2015 *)
%o A256245 (PARI) a(n)=if(n==Mod(2,3),return(0));m=1;while(!issquare(n+3*m),m++);m
%o A256245 vector(100,n,a(n)) \\ _Derek Orr_, Mar 22 2015
%Y A256245 Cf. A256243.
%K A256245 nonn,easy
%O A256245 1,3
%A A256245 _Zak Seidov_, Mar 20 2015