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-10 of 14 results. Next

A081978 Smallest triangular number with exactly n divisors, or 0 if no such number exists.

Original entry on oeis.org

1, 3, 0, 6, 0, 28, 0, 66, 36, 496, 0, 276, 0, 8128, 1631432881, 120, 0, 300, 0, 528, 0, 38009927549623740385753, 0, 630, 0, 33550336, 2172602007770041, 8256, 0, 209628, 0, 3570, 0, 8589869056, 0, 2016, 0, 137438691328, 0, 3240, 0, 662976, 0, 2096128, 41616
Offset: 1

Views

Author

Amarnath Murthy, Apr 03 2003

Keywords

Comments

a(p)=0 if p is an odd prime. If n is an odd composite number, then a(n) is a square; see A001110 for numbers that are both triangular and square. - Victoria A Sapko (vsapko(AT)frc.mass.edu), Sep 28 2007
From Jon E. Schoenfield, May 25 2014: (Start)
If n is an odd semiprime, then a triangular number t having exactly n divisors must be of the form t = p^(2r) * q^(2s) = (p^r * q^s)^2, where p and q are distinct primes (p < q) and r and s are positive integers such that (2r+1)*(2s+1) = n.
If t is the k-th triangular number k(k+1)/2, it can be factored as t = u * v where
u = k and v = (k+1)/2 if k is odd, or
u = k/2 and v = k+1 if k is even.
Since neither p nor q (each of which is greater than 1) can divide both k and (k+1)/2, or both k/2 and k+1, only four cases need to be considered:
Case 1: k is even, q^(2s) = k/2, p^(2r) = k+1
Case 2: k is even, p^(2r) = k/2, q^(2s) = k+1
Case 3: k is odd, q^(2s) = k, p^(2r) = (k+1)/2
Case 4: k is odd, p^(2r) = k, q^(2s) = (k+1)/2
These yield the following equations:
Case 1: 2 * q^(2s) + 1 = p^(2r)
Case 2: 2 * p^(2r) + 1 = q^(2s)
Case 3: 2 * p^(2r) - 1 = q^(2s)
Case 4: 2 * q^(2s) - 1 = p^(2r)
Case 1 can be ruled out: since q > p, q is odd, so 2 * q^(2s) + 1 == 3 (mod 16), but p^(2r) cannot be 3 (mod 16).
For a Case 2 solution, since q is odd, 2 * p^(2r) + 1 = q^(2s) == 1 (mod 8), so p^(2r) == 0 (mod 4), so p must be even. Therefore, p = 2, and we must satisfy the equation 2 * 2^(2r) + 1 = q^(2s), whose left-hand side, which is divisible by 3 for every nonnegative integer r, is thus the square of a prime iff it is 3^2. So r=1, q=3, and s=1, yielding t = 2^2 * 3^2 = 36, which is the smallest triangular number with exactly 9 divisors, so a(9)=36.
In Case 3, both p and q must be odd, and p^r must be a number w having the property that 2*w^2 - 1 is square (i.e., (q^s)^2); every such number w is in A001653 (1, 5, 29, 169, 985, ...), and the corresponding value of q^s = sqrt(2*w^2 - 1) is in A002315 (1, 7, 41, 239, 1393, ...). (Note that A001653 and A002315 are defined with offsets of 1 and 0, respectively, so A001653(j) corresponds to A002315(j-1).) However, for odd semiprime n > 9, we need r > 1 and/or s > 1. The only nontrivial power (i.e., number of the form x^m, where both x and m are integers greater than 2) in A001653 is A001653(4) = 169 = 13^2 [Pethö], so the only Case 3 solution with r > 1 is 2 * 13^4 - 1 = 239^2, which yields the 15-divisor triangular number 13^4 * 239^2 = 1631432881 = a(15). A Case 3 solution with r = 1 and s > 1 would require 2 * p^2 - 1 = q^(2s), which is impossible since p < q.
Finally, in Case 4, both p and q must be odd, q^s must be in A001653, and p^r must be the corresponding term in A002315. However, using the only nontrivial power in A001653 (i.e., 169 = 13^2) as q^s would not yield a valid solution here because it would mean p = 239 and q = 13 (contradicting p < q). Thus, if a Case 4 solution exists for odd semiprime n > 9, we must have s = 1 and r > 1, so n = (2r+1)*(2s+1) = (2r+1)*3, where 2r+1 is prime. Such a solution requires an index j satisfying two conditions: (1) A001653(j) = q^1 = q is prime, and (2) the corresponding term A002315(j-1) = p^r is a nontrivial prime power. There are no nontrivial powers (whether of primes or composites) among the terms in A002315 below 10^5000. Moreover, the terms in A001653 are the odd-indexed terms from A000129 (Pell numbers), so condition (1) requires that j satisfy A000129(2j-1) = q. A096650 lists the indices of all prime or probable prime Pell numbers up to 100000. A check of the value A002315(j-1) corresponding to each prime or probable prime among the odd-indexed Pell numbers A000129(2j-1) up to j=50000 determined that none were nontrivial powers, so if any Case 4 solution with n > 9 exists, it will yield a triangular number t = p^(2r) * q^2 = (2 * q^2 - 1) * q^2, where q >= A000129(100001) = 3.16...*10^38277, so t > 10^153110. Since there are no nontrivial powers at all in A002315 below 10^5000, and since prime Pell numbers above A000129(50000) seem so scarce, it seems extremely unlikely that any such solution exists.
Thus, a(n) = 0 for every odd semiprime n that is not divisible by 3, and assuming that no Case 4 solution for odd semiprime n > 9 exists, the only nonzero a(n) where n is an odd semiprime greater than 9 is a(15) = 13^4 * 239^2 = 1631432881.
If j is prime and n=2j, then a(n) (if nonzero) must be of the form p^r * q, where p and q are distinct primes, r = j-1, and q is one of 3 functions of p^r:
q = f1(p^r) = 2*p^r - 1
q = f2(p^r) = 2*p^r + 1
q = f3(p^r) = (p^r - 1)/2
Of these, q = f1(p^r) for all but two cases among n < 1000:
at n=362, q = f2(p^r), with p=3;
at n=514, q = f3(p^r), with p=331.
Conjecture: a(2j) > 0 for all j > 1. (This conjecture holds at least through n = 2j = 1000. The largest a(n) for even n <= 1000 is a(898) = 20599^448 * (2 * 20599^448 - 1) = 3.21...*10^3865.) (End)
For more known terms, and information about unknown terms, see Links. - Jon E. Schoenfield, May 26 2014
If d(k*(k+1)/2) = 21, note that 2*q^2 = p^6 + 1 = (p^2 + 1)*(p^4 - p^2 + 1) has no prime solutions, so then k = p^2 and k+1 = 2*q^6, where p and q are distinct primes. We can prove 2*x^3 - y^2 = 1 has only one positive solution (1, 1) which shows that p^2 + 1 = 2*q^6 has no prime solutions. In the ring of Gaussian integers, x^3 = (1+y*i)*(1-y*i)/((1+i)*(1-i)) and (1+y*i)/(1+i) is coprime to (1-y*i)/(1-i), thus (1+y*i)/(1+i) = (u+v*i)^3 and (1-y*i)/(1-i) = (u-v*i)^3 for some integers u and v. Note that 1+y*i = (1+i)*(u+v*i)^3 = (u+v)*(u^2+v^2-4*u*v) + (u-v)*(u^2+v^2+4*u*v)*i, we have (u+v)*(u^2+v^2-4*u*v) = 1. Therefore, u = 1 and v = 0 if u > v, which means y = (u-v)*(u^2+v^2+4*u*v) = 1. This implies that a(21) = 0. - Jinyuan Wang, Aug 22 2020
a(n) is a perfect number for all n such that n/2 is in A000043. - J. Lowell, Mar 16 2024

Examples

			a(2)=3 because the smallest triangular number with 2 divisors is T(2)=3.
		

Crossrefs

Extensions

More terms from Victoria A Sapko (vsapko(AT)frc.mass.edu), Sep 28 2007
a(14) corrected and a(20) added by Jon E. Schoenfield, May 11 2014
a(21)-a(24) from Jinyuan Wang, Aug 22 2020
a(25)-a(45) from Jon E. Schoenfield, Jan 28 2021

A086383 Prime terms in the sequence of Pell numbers, A000129.

Original entry on oeis.org

2, 5, 29, 5741, 33461, 44560482149, 1746860020068409, 68480406462161287469, 13558774610046711780701, 4125636888562548868221559797461449, 4760981394323203445293052612223893281
Offset: 1

Views

Author

Cino Hilliard, Sep 06 2003; corrected Jul 30 2004

Keywords

Comments

Previous Name: Primes found among the denominators of the continued fraction rational approximations to sqrt(2).
See A096650 for the indices. - Jon E. Schoenfield, Jan 25 2017
A056869 is essentially the same sequence. - Jianing Song, Jan 02 2019

Examples

			a(1) = 2 = A000129(2), a(2) = 5 = A000129(3), a(3) = 29 = A000129(5), etc. - _Zak Seidov_, Oct 21 2013 [Corrected by _Jianing Song_, Jan 02 2019]
		

Crossrefs

Programs

  • GAP
    f:=[0,1];; for n in [3..100] do f[n]:=2*f[n-1]+f[n-2]; od; a:=Filtered(f,IsPrime);; Print(a); # Muniru A Asiru, Jan 03 2019
  • Mathematica
    Select[Table[ChebyshevU[k,3]-ChebyshevU[k-1,3],{k,0,50}],PrimeQ] (* Ed Pegg Jr, May 10 2007 *)
    Select[Denominator[Convergents[Sqrt[2],150]],PrimeQ] (* Harvey P. Dale, Dec 19 2012 *)
    Select[LinearRecurrence[{2, 1}, {0, 1}, 16], PrimeQ] (* Zak Seidov, Oct 21 2013 *)
  • PARI
    \\ Continued fraction rational approximation of numeric constants f. m=steps.
    cfracdenomprime(m,f) = { default(realprecision,3000); cf = vector(m+10); x=f; for(n=0,m, i=floor(x); x=1/(x-i); cf[n+1] = i; ); for(m1=0,m, r=cf[m1+1]; forstep(n=m1,1,-1, r = 1/r; r+=cf[n]; ); numer=numerator(r); denom=denominator(r); if(ispseudoprime(denom),print1(denom,",")); ) }
    

Formula

a(n) = A000129(A096650(n)). - Jon E. Schoenfield, Jan 25 2017
a(n) = A056869(n-1), n > 1. - Jianing Song, Jan 02 2019

Extensions

Name changed (to a Comments entry from Zak Seidov, Oct 21 2013) by Jon E. Schoenfield, Jan 26 2017

A099088 Indices of prime companion Pell numbers, divided by 2 (A001333).

Original entry on oeis.org

2, 3, 4, 5, 7, 8, 16, 19, 29, 47, 59, 163, 257, 421, 937, 947, 1493, 1901, 6689, 8087, 9679, 28753, 79043, 129127, 145969, 165799, 168677, 170413, 172243, 278321, 552283
Offset: 1

Views

Author

T. D. Noe, Sep 24 2004

Keywords

Comments

Note that for A001333(n) to be prime, the index n must be prime or a power of 2. The indices greater than 421 yield probable primes.
Numbers n for which ((1+sqrt(2))^n + (1-sqrt(2))^n)/2 is prime. - Artur Jasinski, Dec 10 2006

References

  • F. Le Lionnais, Les Nombres Remarquables. Paris: Hermann, p. 62, 1983.

Crossrefs

Cf. A002203 (companion Pell numbers), A086395 (primes in A001333), A096650 (indices of prime Pell numbers).
Cf. A005850.

Programs

  • Mathematica
    lst={}; a=1; b=1; Do[c=a+2b; a=b; b=c; If[PrimeQ[c], AppendTo[lst, n]], {n, 2, 10000}]; lst
    (* Second program: *)
    Do[If[PrimeQ[Expand[((1 + Sqrt[2])^n + (1 - Sqrt[2])^n)/2]], Print[n]], {n, 0, 1000}] (* Artur Jasinski, Dec 10 2006 *)
  • PARI
    isok(n) = isprime(polchebyshev(n, 1, I)/I^n); \\ Michel Marcus, Dec 07 2018

Extensions

a(24) from Eric W. Weisstein, May 22 2006
a(25) from Eric W. Weisstein, Aug 29 2006
a(26) from Eric W. Weisstein, Nov 11 2006
a(27) from Eric W. Weisstein, Nov 26 2006
a(28) from Eric W. Weisstein, Dec 10 2006
a(29) from Eric W. Weisstein, Jan 25 2007
a(30) from Robert Price, Dec 07 2018
a(31) from Robert Price, Dec 05 2023

A246556 a(n) = smallest prime which divides Pell(n) = A000129(n) but does not divide any Pell(k) for k

Original entry on oeis.org

2, 5, 3, 29, 7, 13, 17, 197, 41, 5741, 11, 33461, 239, 269, 577, 137, 199, 37, 19, 45697, 23, 229, 1153, 1549, 79, 53, 113, 44560482149, 31, 61, 665857, 52734529, 103, 1800193921, 73, 593, 9369319, 389, 241, 1746860020068409, 4663, 11437, 43, 6481, 47, 3761, 97, 293, 45245801, 101, 22307, 68480406462161287469, 7761799, 109, 1535466241
Offset: 2

Views

Author

Eric Chen, Nov 15 2014

Keywords

Comments

First differs from A264137 (Largest prime factor of the n-th Pell number) at n=17; see Example section. - Jon E. Schoenfield, Dec 10 2016

Examples

			a(2) = 2 because Pell(2) = 2 and Pell(k) < 2 for k < 2.
a(4) = 3 because Pell(4) = 12 = 2^2 * 3, but 2 is not a primitive prime factor since Pell(2) = 2, so therefore 3 is the primitive prime factor.
a(5) = 29 because Pell(5) = 29, which is prime.
a(6) = 7 because Pell(6) = 70 = 2 * 5 * 7, but neither 2 nor 5 is a primitive prime factor, so therefore 7 is the primitive prime factor.
a(17) = 137 because Pell(17) = 1136689 = 137 * 8297, and both of them are primitive factors, we choose the smallest. (Pell(17) is the smallest Pell number with more than one primitive prime factor.)
		

Crossrefs

Cf. A001578 (for Fibonacci(n)), A000129 (Pell numbers), A008555, A086383, A096650, A120947, A175181, A214028, A264137.

Programs

  • Mathematica
    prms={}; Table[f=First/@FactorInteger[Pell[n]]; p=Complement[f, prms]; prms=Join[prms, p]; If[p=={}, 1, First[p]], {n, 36}]

Formula

a(n) >= 2 for all n >= 2, by Carmichael's theorem. - Jonathan Sondow, Dec 08 2017

Extensions

Edited by N. J. A. Sloane, Nov 29 2014
Terms up to a(612) in b-file added by Sean A. Irvine, Sep 23 2019
Terms a(613)-a(630) in b-file added by Max Alekseyev, Aug 26 2021

A209493 Indices of primes in sequence A006190.

Original entry on oeis.org

2, 5, 11, 17, 61, 103, 167, 193, 293, 643, 647, 911, 11243, 29437, 55021, 80141
Offset: 1

Views

Author

Vaclav Kotesovec, Mar 09 2012

Keywords

Comments

Index must be prime. The indices greater than 293 yield probable primes.

Crossrefs

Programs

  • Mathematica
    seq=RecurrenceTable[{a[n]==3*a[n-1]+a[n-2], a[1]==1, a[2]==3}, a, {n, 1000}]; Select[Range[1000], PrimeQ[seq[[#]]]&]

Extensions

a(14)-a(15) from Vaclav Kotesovec, Sep 08 2013
a(16) from Michael S. Branicky, Nov 03 2024

A228916 Indices of primes in sequence A108300.

Original entry on oeis.org

1, 3, 9, 15, 39, 225, 231, 363, 687, 1299, 1335, 1809, 2367, 12735
Offset: 1

Views

Author

Vaclav Kotesovec, Sep 08 2013

Keywords

Comments

Conjecture: for n>1 a(n) is a multiple of 3.
The indices greater than 363 yield probable primes. - Vaclav Kotesovec, Oct 28 2013
Next term > 100000. - Tyler Busby, Mar 29 2024

Crossrefs

Programs

  • Mathematica
    seq=RecurrenceTable[{a[n]==3*a[n-1]+a[n-2],a[0]==1,a[1]==5},a,{n,1,1000}]; Select[Range[1000],PrimeQ[seq[[#]]]&]

A250292 Numbers k such that Pell(k) is a semiprime.

Original entry on oeis.org

7, 9, 17, 19, 23, 43, 47, 67, 73, 83, 103, 109, 139, 149, 157, 173, 179, 223, 239, 281, 311, 313, 349, 431, 557, 569, 577, 587
Offset: 1

Views

Author

Eric Chen, Dec 24 2014

Keywords

Comments

a(29) >= 709. - Hugo Pfoertner, Jul 29 2019
859, 937, 1087, 1151, and 1193 belong to the sequence. 709 and 787 have not yet been ruled out. The next candidate after these appears to be 1471. - Daniel M. Jensen, Oct 18 2019

Examples

			17 is a term since Pell(17) = 1136689 = 137 * 8297 is a semiprime.
		

Crossrefs

Programs

  • Maple
    pell:= gfun:-rectoproc({a(0)=0,a(1)=1,a(n)=2*a(n-1)+a(n-2)},a(n),remember):
    filter:= proc(n) local F,f;
       F:= ifactors(pell(n),easy)[2];
       if add(f[2],f=F) > 2 then return false fi;
       if hastype(F,symbol) then
         if add(f[2],f=F) >= 2 then return false fi;
       else return evalb(add(f[2],f=F)=2)
       fi;
       F:= ifactors(pell(n))[2];
       evalb(add(f[2],f=F)=2)
    end proc:
    select(filter, [$1..230]); # Robert Israel, Jan 18 2016
  • Mathematica
    a[0] = 0; a[1] = 1; a[n_] := a[n] = 2 a[n - 1] + a[n - 2]; Select[Range[0, 160], PrimeOmega@ a@ # == 2 &] (* Michael De Vlieger, Jan 19 2016 *)

Extensions

a(22)-a(23) from Daniel M. Jensen, Jan 18 2016
a(24) from Arkadiusz Wesolowski, Jan 19 2016
a(25)-a(27) from Sean A. Irvine, Jul 17 2017
a(28) from Sean A. Irvine, Jan 24 2018

A270387 Primes p such that A000129(p) is not a prime number.

Original entry on oeis.org

7, 17, 19, 23, 31, 37, 43, 47, 61, 67, 71, 73, 79, 83, 103, 107, 109, 113, 127, 131, 137, 139, 149, 151, 157, 163, 173, 179, 193, 197, 199, 211, 223, 227, 229, 233, 239, 241, 251, 257, 263, 269, 271, 277, 281, 283, 293, 307, 311, 313, 317, 331, 337, 347, 349, 353, 359, 367
Offset: 1

Views

Author

Altug Alkan, Mar 16 2016

Keywords

Comments

Primes p such that ((1+sqrt(2))^p - (1-sqrt(2))^p) / (2*sqrt(2)) is a composite number.

Crossrefs

Programs

  • PARI
    a000129(n) = ([2, 1; 1, 0]^n)[2, 1];
    forprime(p=2, 1e3, if(!isprime(a000129(p)), print1(p, ", ")));

A271309 Integers k such that A264137(k) < A060385(k).

Original entry on oeis.org

52, 60, 65, 74, 75, 76, 85, 108, 111, 121, 124, 125, 127, 131, 132, 140, 144, 150, 153, 156, 158, 172, 175, 180, 183, 185, 195, 201, 209, 213, 216, 220, 225, 250, 263, 287, 300, 301, 327, 328, 335, 337, 339, 344, 356, 370, 402, 404, 408, 412, 417, 423, 433, 435
Offset: 1

Views

Author

Altug Alkan, Apr 03 2016

Keywords

Comments

For all corresponding values of k, A000129(k) is a composite number. In other words, k cannot be a term of A096650.

Examples

			52 is a term because A264137(52) = 66923 < A060385(52) = 90481.
		

Crossrefs

Programs

  • PARI
    a060385(n) = my(f=factor(fibonacci(n))[, 1]); f[#f];
    a000129(n) = ([2, 1; 1, 0]^n)[2, 1];
    a264137(n) = my(p=factor(a000129(n))[, 1]); p[#p];
    lista(nn) = for(n=3, nn, if(a264137(n) < a060385(n), print1(n, ", ")));

Extensions

a(37)-a(54) from Amiram Eldar, May 19 2024

A331234 Triangular numbers having exactly 9 divisors.

Original entry on oeis.org

36, 1225, 1413721, 7885505171090778556470578126753302097454601, 67594562493730400324395236678194231988753004665644702944024074038452164931450549832074201
Offset: 1

Views

Author

Jon E. Schoenfield, Jan 12 2020

Keywords

Comments

Any number having an odd number of divisors is a square, so each term in this sequence is a term of A001110 (numbers that are both triangular and square). Since A001110(k) = (A000129(k)*A001333(k))^2, A001110(k) will have exactly 9 divisors iff A000129(k) and A001333(k) are both prime (i.e., k is in both A096650 and A099088); the first 5 values of k at which this occurs are 2, 3, 5, 29, and 59.
Conjecture: a(5) is the final term of this sequence.

Examples

			Writing the k-th triangular number A000217(k) as T(k):
a(1) = T(8) = 8*9/2 = 36 = 2^2 * 3^2;
a(2) = T(49) = 49*50/2 = 1225 = 5^2 * 7^2;
a(3) = T(1681) = 1681*1682/2 = 1413721 = 29^2 * 41^2.
Factorization of larger known terms:
a(4) = 44560482149^2 * 63018038201^2;
a(5) = 13558774610046711780701^2 * 19175002942688032928599^2.
		

Crossrefs

Intersection of A000217 (triangular numbers) and A030627 (numbers with exactly 9 divisors).
Triangular numbers having exactly k divisors: A068443 (k=4), A292989 (k=6), A330809 (k=8).
Cf. A063440 (number of divisors of n-th triangular number), A242585 (number of divisors of the n-th positive number that is both triangular and square).
Showing 1-10 of 14 results. Next