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-3 of 3 results.

A223701 Irregular triangle of numbers k such that prime(n) is the largest prime factor of k^2 - 1.

Original entry on oeis.org

3, 2, 5, 7, 17, 4, 9, 11, 19, 26, 31, 49, 161, 6, 8, 13, 15, 29, 41, 55, 71, 97, 99, 127, 244, 251, 449, 4801, 8749, 10, 21, 23, 34, 43, 65, 76, 89, 109, 111, 197, 199, 241, 351, 485, 769, 881, 1079, 6049, 19601, 12, 14, 25, 27, 51, 53, 64, 79, 129, 131, 155
Offset: 1

Views

Author

T. D. Noe, Apr 03 2013

Keywords

Comments

Note that the first number of each row forms the sequence 3, 2, 4, 6, 10, 12,..., which is A039915. The first 25 rows, except the first, are in A181447-A181470.

Examples

			Irregular triangle:
  {3},
  {2, 5, 7, 17},
  {4, 9, 11, 19, 26, 31, 49, 161},
  {6, 8, 13, 15, 29, 41, 55, 71, 97, 99, 127, 244, 251, 449, 4801, 8749}
		

Crossrefs

Row 26 is A181568.
Cf. A039915 (first terms), A175607 (last terms), A181471 (row lengths), A379344 (row sums).
Cf. A223702, A223703, A223704 (related tables).

Programs

  • Mathematica
    t = Table[FactorInteger[n^2 - 1][[-1,1]], {n, 2, 10^5}]; Table[1 + Flatten[Position[t, Prime[n]]], {n, 6}]

A181448 Numbers k such that 5 is the largest prime factor of k^2 - 1.

Original entry on oeis.org

4, 9, 11, 19, 26, 31, 49, 161
Offset: 1

Views

Author

Artur Jasinski, Oct 21 2010

Keywords

Comments

Numbers k such that A076605(k) = 3.
Sequence is finite and complete, for proof see A175607.
Search for terms can be restricted to the range from 2 to A175607(3) = 161; primepi(5) = 3.

Crossrefs

Programs

  • Magma
    [ n: n in [2..200] | m eq 5 where m is D[#D] where D is PrimeDivisors(n^2-1) ]; // Klaus Brockhaus, Feb 17 2011
    
  • Mathematica
    Select[Range[200], FactorInteger[#^2-1][[-1, 1]]==5&]
  • PARI
    is(n)=n=n^2-1; n>>=valuation(n,2); n/=3^valuation(n,3); n>1 && 5^valuation(n, 5)==n \\ Charles R Greathouse IV, Jul 01 2013

A181450 Numbers k such that 11 is the largest prime factor of k^2 - 1.

Original entry on oeis.org

10, 21, 23, 34, 43, 65, 76, 89, 109, 111, 197, 199, 241, 351, 485, 769, 881, 1079, 6049, 19601
Offset: 1

Views

Author

Artur Jasinski, Oct 21 2010

Keywords

Comments

Numbers k such that A076605(k) = 11.
Sequence is finite and complete, for proof see A175607.
Search for terms can be restricted to the range from 2 to A175607(5) = 19601; primepi(11) = 5.

Crossrefs

Programs

  • Magma
    [ n: n in [2..20000] | m eq 11 where m is D[#D] where D is PrimeDivisors(n^2-1) ]; // Klaus Brockhaus, Feb 18 2011
    
  • Mathematica
    Select[Range[20000], FactorInteger[#^2-1][[-1, 1]]==11&]
  • PARI
    is(n)=n=n^2-1; forprime(p=2, 7, n/=p^valuation(n, p)); n>1 && 11^valuation(n, 11)==n \\ Charles R Greathouse IV, Jul 01 2013
Showing 1-3 of 3 results.