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 A230781 #14 Feb 19 2020 14:29:15 %S A230781 1,3,4,9,12,16,25,27,36,48,64,75,81,100,108,121,144,192,225,243,256, %T A230781 289,300,324,363,400,432,484,529,576,625,675,729,768,841,867,900,972, %U A230781 1024,1089,1156,1200,1296,1452,1587,1600,1681,1728,1875,1936,2025,2116,2187,2209,2304,2500 %N A230781 Squared radii of circles centered at a grid point in a triangular lattice hitting exactly 6 points. Squares or triple of squares that are not expressible as x^2+xy+y^2 with y > x > 0. %C A230781 Numbers without prime factor of form 6k+1 and without prime factor of form 3k+2 to an odd multiplicity. %C A230781 The sequence is closed under multiplication. Primitive elements are 3 and square of primes of form 3k+2 (A003627). Sequence A003136 (Loeschian numbers) is the union of {0}, this sequence and A024606 (numbers of form x^2+xy+y^2 with y > x > 0). These 4 sequences are all closed under multiplication. %H A230781 Ray Chandler, <a href="/A230781/b230781.txt">Table of n, a(n) for n = 1..10000</a> (first 413 terms from Jean-Christophe Hervé) %H A230781 August Lösch, <a href="http://archive.org/stream/economicsoflocat00ls#page/116/mode/2up">Economics of Location</a> (1954), see pp. 117f. %H A230781 U. P. Nair, <a href="http://arXiv.org/abs/math.NT/0408107">Elementary results on the binary quadratic form a^2+ab+b^2</a> %H A230781 Kenneth Shum's scrapbook, <a href="http://home.ie.cuhk.edu.hk/~wkshum/wordpress/?p=1003">Distance distribution in the hexagonal packing</a> %H A230781 <a href="/index/Aa#A2">Index entries for sequences related to A2 = hexagonal = triangular lattice</a> %e A230781 49 is not in the sequence because 49 = 3^2+3*5+5^2. %t A230781 selQ[1] = True; selQ[n_] := Module[{f = FactorInteger[n]}, FreeQ[f, {p_, q_} /; Mod[p, 6] == 1 || Mod[p, 3] == 2 && OddQ[q]]]; Select[Range[2500], selQ] (* _Jean-François Alcover_, Nov 25 2013, after first comment *) %Y A230781 Cf. A003136, A003627, A024606. %K A230781 nonn %O A230781 1,2 %A A230781 _Jean-Christophe Hervé_, Nov 23 2013