cp's OEIS Frontend

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.

Showing 1-2 of 2 results.

A178794 These are the x coordinates of the isolated visible lattice points in the plane.

Original entry on oeis.org

21, 99, 115, 369, 495, 475, 195, 259, 265, 225, 375, 741, 741, 649, 323, 377, 399, 1001, 1001, 441, 987, 609, 755, 1001, 545, 645, 1035, 407, 1275, 153, 645, 1275, 51, 1221, 485, 35, 805, 715, 441, 595, 1015, 221, 1001, 1183, 371, 391, 575, 519, 645, 1065
Offset: 1

Views

Author

Gregg Whisler, Jun 15 2010

Keywords

Comments

An isolated lattice point is surrounded (in a Moore neighborhood) by 8 points that are not visible from the origin. I have also submitted the corresponding sequence of denominators.
From Gregg Whisler, Jun 21 2010: (Start)
a(n) is also A157429 + 1.
These are also the x coordinates of the isolated visible lattice points in Z^2. (End)

Crossrefs

Cf. A178793 (corresponding y coordinates), A157428, A157429, A216467.

Programs

  • Mathematica
    Table[Replace[Select[First/@Position[Partition[CoprimeQ[n,Range[n]],3,1],{False,True,False},{1}]+1, Outer[CoprimeQ, n+ {-1,1},#1+{-1,0,1}]=={{False,False,False},{False,False,False}}&],{{}-> Sequence[], list_:>Sequence@@ ({#1,n}&)/@list}],{n,2000}][[All, 1]] (* Eric Rowland *)

Extensions

More terms (until the initial 21 repeats) from Gregg Whisler, Jun 21 2010

A216467 Smallest numbers in the coordinates of the isolated visible lattice points in the infinite square grid.

Original entry on oeis.org

21, 35, 39, 45, 51, 55, 57, 69, 75, 77, 85, 87, 91, 93, 95, 99, 105, 111, 115, 117, 119, 123, 133, 135, 141, 143, 145, 147, 153, 155, 159, 161, 165, 171, 175, 177, 183, 185, 187, 189, 195, 201, 203, 205, 207, 209, 213, 215, 217, 219, 221, 225, 231, 235, 237, 244, 245
Offset: 1

Views

Author

Gregg Whisler, Sep 07 2012

Keywords

Comments

See A178793, A178794 for terminology.
It is not clear to me how many - if any! - of these terms are known to be correct. - N. J. A. Sloane, Oct 17 2012
From Charlie Neder, Jun 27 2018: (Start)
For row k to contain an isolated lattice point, k must contain a pair (m-1,m+1) of nontotatives, and both k-1 and k+1 must contain a triple of consecutive nontotatives. The CRT can then be used to "align" the groups into a box containing a lattice point. We consider the cases when k is odd and when k is even:
a) k is odd:
k cannot be a prime p or a power of a prime, because then the nontotatives to k are precisely the multiples of p, which contain no pairs since k is odd and therefore p > 2. As long as k is divisible by at least two odd primes, a pair can be found by the CRT.
k-1 and k+1 are even but cannot be powers of two, since then the nontotatives would be the even numbers, which contain no triples. As long as they each have at least one odd divisor, then all the odd nontotatives will be centers of triples.
b) k is even:
There are no other restrictions on k itself, since pairs are very easy to find for even k. (e.g. for any prime p not dividing k, (p-1,p+1) is a valid pair)
k-1 and k+1 are both odd and must be the products of at least three distinct primes, since a triple could not form otherwise. The CRT can be used to find triples as long as this is the case.
The first such even k is 664, with isolated point (189449,664) on it. (End)

Crossrefs

Programs

  • Mathematica
    Select[Range[300], If[OddQ[#], !PrimePowerQ[#] && !PrimePowerQ[# - 1] && !PrimePowerQ[# + 1], PrimeOmega[# - 1] > 2 && PrimeOmega[# + 1] > 2]&] (* Jean-François Alcover, Sep 02 2019, after Andrew Howroyd *)
  • PARI
    select(k->if(k%2, !isprimepower(k) && !isprimepower(k-1) && !isprimepower(k+1), omega(k-1)>2 && omega(k+1)>2), [1..300]) \\ Andrew Howroyd, Jun 27 2018

Extensions

Several missing terms added by Charlie Neder, Jun 27 2018
More terms from Jean-François Alcover, Sep 02 2019
Showing 1-2 of 2 results.