A091419 -id:A091419 - cp's OEIS frontend

A091420 Square roots of A091419.

1, 1, 2, 1, 3, 1, 4, 3, 2, 5, 1, 6, 3, 3, 5, 1, 8, 3, 9, 3, 10, 5, 11, 2, 1, 12, 3, 9, 13, 14, 3, 5, 15, 11, 3, 1, 16, 4, 17, 3, 8, 9, 5, 13, 19, 3, 20, 5, 21, 15, 22, 11, 3, 1, 23, 24, 17, 2, 25, 3, 9, 5, 26, 13, 19, 12, 27, 28, 3, 5, 29, 8, 13, 21, 30, 15, 31, 11, 3, 1, 23, 33, 34, 17, 35

Offset: 1

Ray Chandler, Jan 05 2004

nonn

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A089653, A091419.

a(n) = sqrt(A091419(n)). - Amiram Eldar, Sep 29 2019

A089653 Numbers k > 1 such that (product of prime factors of k) - 1 is a perfect square.

Original entry on oeis.org

2, 4, 5, 8, 10, 16, 17, 20, 25, 26, 32, 37, 40, 50, 52, 64, 65, 80, 82, 100, 101, 104, 122, 125, 128, 145, 160, 164, 170, 197, 200, 208, 226, 244, 250, 256, 257, 289, 290, 320, 325, 328, 338, 340, 362, 400, 401, 416, 442, 452, 485, 488, 500, 512, 530, 577, 580

Offset: 1

Joseph L. Pe, Jan 04 2004

nonn

			The prime factors of 10 are 2 and 5 and 2 * 5 - 1 = 9 is a square; so 10 belongs to the sequence.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A007947, A089632. A091419 gives squares, A091420 gives square roots. Subsets: A002496, A003592 \ {1}.

ppf[n_] := Apply[Times, Transpose[FactorInteger[n]][[1]]]; Select[Range[2, 10^3], IntegerQ[Sqrt[ppf[ # ] - 1]] &]

isok(k) = (k>1) && issquare(vecprod(factor(k)[, 1])-1); \\ Michel Marcus, Sep 05 2023

Name clarified by Michel Marcus, Sep 05 2023

cp's OEIS Frontend

A091420 Square roots of A091419.

Views

Author

Keywords

Links

Crossrefs

Formula

A089653 Numbers k > 1 such that (product of prime factors of k) - 1 is a perfect square.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI

Extensions