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 12 results. Next

A007742 a(n) = n*(4*n+1).

Original entry on oeis.org

0, 5, 18, 39, 68, 105, 150, 203, 264, 333, 410, 495, 588, 689, 798, 915, 1040, 1173, 1314, 1463, 1620, 1785, 1958, 2139, 2328, 2525, 2730, 2943, 3164, 3393, 3630, 3875, 4128, 4389, 4658, 4935, 5220, 5513, 5814, 6123, 6440, 6765, 7098, 7439, 7788, 8145
Offset: 0

Views

Author

Keywords

Comments

Write 0,1,2,... in a clockwise spiral; sequence gives the numbers that fall on the positive y-axis. (See Example section.)
Central terms of the triangle in A126890. - Reinhard Zumkeller, Dec 30 2006
a(n)*Pi is the total length of 4 points circle center spiral after n rotations. The spiral length at each rotation (L(n)) is A004770. The spiral length ratio rounded down [floor(L(n)/L(1))] is A047497. See illustration in links. - Kival Ngaokrajang, Dec 27 2013
For n >= 1, the continued fraction expansion of sqrt(a(n)) is [2n; {4, 4n}]. For n=1, this collapses to [2, {4}]. - Magus K. Chu, Sep 15 2022

Examples

			Part of the spiral:
.
  64--65--66--67--68
   |
  63  36--37--38--39--40--41--42
   |   |                       |
  62  35  16--17--18--19--20  43
   |   |   |               |   |
  61  34  15   4---5---6  21  44
   |   |   |   |       |   |   |
  60  33  14   3   0   7  22  45
   |   |   |   |   |   |   |   |
  59  32  13   2---1   8  23  46
   |   |   |           |   |   |
  58  31  12--11--10---9  24  47
   |   |                   |   |
  57  30--29--28--27--26--25  48
   |                           |
  56--55--54--53--52--51--50--49
		

References

  • S. M. Ellerstein, The square spiral, J. Recreational Mathematics 29 (#3, 1998) 188; 30 (#4, 1999-2000), 246-250.
  • R. L. Graham, D. E. Knuth and O. Patashnik, Concrete Mathematics. Addison-Wesley, Reading, MA, 2nd ed., 1994, p. 99.

Crossrefs

Sequences on the four axes of the square spiral: Starting at 0: A001107, A033991, A007742, A033954; starting at 1: A054552, A054556, A054567, A033951.
Sequences on the four diagonals of the square spiral: Starting at 0: A002939 = 2*A000384, A016742 = 4*A000290, A002943 = 2*A014105, A033996 = 8*A000217; starting at 1: A054554, A053755, A054569, A016754.
Sequences obtained by reading alternate terms on the X and Y axes and the two main diagonals of the square spiral: Starting at 0: A035608, A156859, A002378 = 2*A000217, A137932 = 4*A002620; starting at 1: A317186, A267682, A002061, A080335.
Cf. index to sequences with numbers of the form n*(d*n+10-d)/2 in A140090.
Cf. A081266.

Programs

  • Magma
    I:=[0, 5, 18]; [n le 3 select I[n] else 3*Self(n-1)-3*Self(n-2)+1*Self(n-3): n in [1..50]]; // Vincenzo Librandi, Jan 29 2012
  • Mathematica
    LinearRecurrence[{3,-3,1},{0,5,18},50] (* Vincenzo Librandi, Jan 29 2012 *)
    Table[n(4n+1),{n,0,50}] (* Harvey P. Dale, Aug 10 2017 *)
  • PARI
    a(n)=4*n^2+n
    

Formula

G.f.: x*(5+3*x)/(1-x)^3. - Michael Somos, Mar 03 2003
a(n) = A033991(-n) = A074378(2*n).
a(n) = floor((n + 1/4)^2). - Reinhard Zumkeller, Feb 20 2010
a(n) = A110654(n) + A173511(n) = A002943(n) - n. - Reinhard Zumkeller, Feb 20 2010
a(n) = 8*n + a(n-1) - 3. - Vincenzo Librandi, Nov 21 2010
Sum_{n>=1} 1/a(n) = Sum_{k>=0} (-1)^k*zeta(2+k)/4^(k+1) = 0.349762131... . - R. J. Mathar, Jul 10 2012
a(n) = 3*a(n-1) - 3*a(n-2) + a(n-3) for n>2, a(0)=0, a(1)=5, a(2)=18. - Philippe Deléham, Mar 26 2013
a(n) = A118729(8n+4). - Philippe Deléham, Mar 26 2013
a(n) = A000217(3*n) - A000217(n). - Bruno Berselli, Sep 21 2016
E.g.f.: (4*x^2 + 5*x)*exp(x). - G. C. Greubel, Jul 17 2017
From Amiram Eldar, Jul 03 2020: (Start)
Sum_{n>=1} 1/a(n) = 4 - Pi/2 - 3*log(2).
Sum_{n>=1} (-1)^(n+1)/a(n) = Pi/sqrt(2) + log(2) + sqrt(2)*log(1 + sqrt(2)) - 4. (End)
a(n) = A081266(n) - A000217(n). - Leo Tavares, Mar 25 2022

A007708 Prime(n)*...*a(n) is the least product of consecutive primes which is abundant.

Original entry on oeis.org

5, 13, 31, 73, 149, 233, 367, 521, 733, 991, 1249, 1579, 1949, 2341, 2791, 3343, 3881, 4481, 5147, 5849, 6619, 7499, 8387, 9341, 10321, 11411, 12517, 13709, 15013, 16363, 17881, 19381, 20873, 22369, 24007, 25763, 27611, 29399, 31357
Offset: 1

Views

Author

Keywords

Comments

Differs from A007686 only for n=1. - Michel Marcus, Mar 10 2013

Crossrefs

Programs

  • Mathematica
    a[n_] := Module[{p = Prime[n]}, r = 1 + 1/p; While[r <= 2,  p = NextPrime[p]; r *= 1 + 1/p]; p]; Array[a, 39] (* Amiram Eldar, Jun 29 2019 *)
  • PARI
    a(n) = {p = prime(n); sig = p+1; prd = p; while (sig <= 2*prd, p = nextprime(p+1); sig *= p+1; prd *= p;); return (p);} \\ Michel Marcus, Mar 10 2013

Extensions

More terms from Don Reble, Nov 10 2005

A108227 a(n) is the least number of prime factors for any abundant number with p_n (the n-th prime) as its least factor.

Original entry on oeis.org

3, 5, 9, 18, 31, 46, 67, 91, 122, 158, 194, 238, 284, 334, 392, 456, 522, 591, 668, 749, 835, 929, 1028, 1133, 1242, 1352, 1469, 1594, 1727, 1869, 2019, 2163, 2315, 2471, 2636, 2802, 2977, 3157, 3342, 3534, 3731, 3933, 4145, 4358, 4581, 4811
Offset: 1

Views

Author

Hugo van der Sanden, Jun 17 2005

Keywords

Comments

If we replace "abundant" in the definition with "non-deficient", we get the same sequence with an initial 2 instead of 3, barring an astronomically unlikely coincidence with some as-yet-undiscovered odd perfect number. [This is sequence A107705. - M. F. Hasler, Jun 14 2017]
It appears that all terms >= 5 correspond to the odd primitive abundant numbers (A006038) which are products of consecutive primes (cf. A285993), i.e., of the form N = Product_{0<=iM. F. Hasler, May 08 2017
From Jianing Song, Apr 21 2021: (Start)
Let x_1 < x_2 < ... < x_k < ... be the numbers of the form p of p^2 + p, where p is a prime >= prime(n). Then a(n) is the smallest N such that Product_{i=1..N} (1 + 1/x_i) > 2. See my link below for a proof.
For example, for n = 3, we have {x_1, x_2, ..., x_k, ...} = {5, 7, 11, 13, 17, 19, 23, 29, 5^2 + 5, ...}, we have Product_{i=1..8} (1 + 1/x_i) < 2 and Product_{i=1..9} (1 + 1/x_i) > 2, so a(3) = 9. (End)

Examples

			a(2) = 5 since 945 = 3^3*5*7 is an abundant number with p_2 = 3 as its smallest prime factor, and no such number exists with fewer than 5 prime factors.
		

Crossrefs

Cf. A107705.
Cf. A001276 (least number of prime factors for a (p_n)-rough abundant number, counted without multiplicity).

Programs

  • PARI
    A108227(n, s=1+1/prime(n))=for(a=1, 9e9, if(2M. F. Hasler, Jun 15 2017
    
  • PARI
    isform(k,q) = my(p=prime(k)); if(isprime(q) && (q>=p), 1, if(issquare(4*q+1), my(r=(sqrtint(4*q+1)-1)/2); isprime(r) && (r>=p), 0))
    a(n) = my(Prod=1, Sum=0); for(i=prime(n), oo, if(isform(n,i), Prod *= (1+1/i); Sum++); if(Prod>2, return(Sum))) \\ Jianing Song, Apr 21 2021

Formula

a(n) = A007684(n)-n+1, for n>1. A007741(n) = Product_{0<=iM. F. Hasler, Jun 15 2017

Extensions

Data corrected by Amiram Eldar, Aug 08 2019

A007707 Prime(n)*...*prime(a(n)) is the least product of consecutive primes which is abundant.

Original entry on oeis.org

3, 6, 11, 21, 35, 51, 73, 98, 130, 167, 204, 249, 296, 347, 406, 471, 538, 608, 686, 768, 855, 950, 1050, 1156, 1266, 1377, 1495, 1621, 1755, 1898, 2049, 2194, 2347, 2504, 2670, 2837, 3013, 3194, 3380, 3573, 3771, 3974, 4187, 4401, 4625, 4856
Offset: 1

Views

Author

Keywords

Comments

Essentially (except the first term) the same as A007684, where the product is only required to be non-deficient, i.e., possibly a perfect number. This happens for the first term, but can't happen later any more. - M. F. Hasler, Jul 30 2016

Crossrefs

Cf. A005101, A007684 (essentially the same), A007708, A007741.

Programs

  • Mathematica
    a[n_] := Module[{p = Prime[n]}, k = n; r = 1 + 1/p; While[r <= 2,  p = NextPrime[p]; r *= 1 + 1/p; k++]; k]; Array[a, 46] (* Amiram Eldar, Jun 29 2019 *)
  • PARI
    a(n) = {p = prime(n); sig = p+1; prd = p; np = n; while (sig <= 2*prd, p = nextprime(p+1); sig *= p+1; prd *= p; np++;); return (np);} \\ Michel Marcus, Mar 10 2013
    
  • PARI
    a=1;i=0;for(n=1,99,until(2M. F. Hasler, Jul 30 2016

Extensions

More terms from Don Reble, Nov 10 2005

A007702 a(n) = prime(n)*...*prime(m), the least product of consecutive primes which is non-deficient.

Original entry on oeis.org

6, 15015, 33426748355, 1357656019974967471687377449, 7105630242567996762185122555313528897845637444413640621
Offset: 1

Views

Author

Keywords

Crossrefs

Programs

  • Mathematica
    a[n_] := Module[{p = Prime[n]}, r = 1; prod = 1; While[r < 2, r *= 1 + 1/p; prod *= p; p = NextPrime[p]]; prod]; Array[a, 5] (* Amiram Eldar, Jun 29 2019 *)
  • PARI
    A007702(n, p=prime(n), s=1+1/p, P=p)={until(2<=s*=1+1/p,P*=p=nextprime(p+1));P} \\ M. F. Hasler, Jun 15 2017

Formula

a(n) = Product_{k = n..A007684(n)} prime(k) = Product_{0 <= i < A107705(n)} prime(n+i). - M. F. Hasler, Jun 15 2017

Extensions

More terms from Don Reble, Nov 10 2005

A107705 a(n) is the least number of prime factors in any non-deficient number that has the n-th prime as its least prime factor.

Original entry on oeis.org

2, 5, 9, 18, 31, 46, 67, 91, 122, 158, 194, 238, 284, 334, 392, 456, 522, 591, 668, 749, 835, 929, 1028, 1133, 1242, 1352, 1469, 1594, 1727, 1869, 2019, 2163, 2315, 2471, 2636, 2802, 2977, 3157, 3342, 3534, 3731, 3933, 4145, 4358, 4581, 4811, 5053, 5293
Offset: 1

Views

Author

Hugo van der Sanden, Jun 10 2005

Keywords

Comments

Barring unforeseen odd perfect numbers (which it has been proved must have at least 29 prime factors if they exist at all), if we replace "non-deficient" in the description with "abundant", the value of a(1) becomes 3 and all other values stay the same.
The above mentioned sequence is A108227, see there for a comment on the relation of this sequence to that of primitive abundant numbers (A006038) which are products of consecutive primes, i.e., of the form N = Product_{0<=iA007702. - M. F. Hasler, Jun 15 2017

Examples

			a(2) is 5 since 1) there are abundant numbers with a(2)=5 prime factors of which p_2=3 is the least prime factor (such as 945 = 3^3.5.7); 2) there are no non-deficient numbers with fewer than 5 prime factors, of which 3 is the least prime factor.
		

Crossrefs

Programs

  • PARI
    A107705(n,s=1+1/prime(n))=for(a=1,9e9,2>(s*=1+1/prime(n+a))||return(a+1)) \\ M. F. Hasler, Jun 15 2017

Formula

a(n) = A007684(n)-n+1. A007702(n) = Product_{0<=iM. F. Hasler, Jun 15 2017

Extensions

Data corrected by Amiram Eldar, Aug 08 2019

A285993 Largest odd abundant number (A005231) equal to the product of n consecutive primes.

Original entry on oeis.org

15015, 255255, 4849845, 111546435, 33426748355, 1236789689135, 50708377254535, 2180460221945005, 102481630431415235, 5431526412865007455, 320460058359035439845, 19548063559901161830545, 1309720258513377842646515, 1357656019974967471687377449, 107254825578022430263302818471
Offset: 5

Views

Author

M. F. Hasler, Apr 30 2017

Keywords

Comments

The smallest term is a(5) = 3*5*7*11*13, there is no odd abundant number (A005231) equal to the product of less than 5 consecutive primes.
The smallest odd abundant number (A005231) equal to the product of n consecutive primes is equal (when it exists, i.e., for n >= 5) to the least odd number with n (distinct) prime divisors, equal to the product of the first n odd primes = A070826(n+1) = A002110(n+1)/2.
See A188342 = (945, 3465, 15015, 692835, 22309287, ...) for the least odd primitive abundant number (A006038) with n distinct prime factors, and A275449 for the least odd primitive abundant number with n prime factors counted with multiplicity.
The terms are in general not primitive abundant numbers (A091191), in particular this cannot be the case when a(n) is a multiple of a(n-1), as is the case for most of the terms, for which a(n) = a(n-1)*A117366(a(n-1)). In the other event, spf(a(n)) = nextprime(spf(a(n-1))), and a(n) is in A007741(2,3,4...). These are exactly the primitive terms in this sequence.

Examples

			For n < 5, there is no odd abundant number equal to the product of n distinct primes.
For 5 <= n <= 8, the largest odd abundant number equal to the product of n consecutive primes is 3*...*prime(n+1).
For 9 <= n <= 17, the largest odd abundant number equal to the product of n consecutive primes is 5*...*prime(n+2).
For 18 <= n <= 30, the largest odd abundant number equal to the product of n consecutive primes is 7*...*prime(n+3).
For 31 <= n <= 45, the largest odd abundant number equal to the product of n consecutive primes is 11*...*prime(n+4).
For 46 <= n <= 66, the largest odd abundant number equal to the product of n consecutive primes is 13*...*prime(n+5).
		

Crossrefs

A subsequence of A112643 (odd squarefree abundant numbers); see also A108227 (~ A107705) which give indices of primitive terms = those with smallest prime factor larger than that of earlier terms.

Programs

  • PARI
    a(r,f=vector(r,i,prime(i+1)),o)={ while(sigma(factorback(f),-1)>2, o=f; f=concat(f[^1],nextprime(f[r]+1)));factorback(o)} \\ Intentionally throws an error when n < 5.

Formula

a(n) >= a(n-1)*p where p = A117366(a(n-1)) = A151800(A006530(a(n-1))) = nextprime(gpf(a(n-1))), an odd abundant number equal to the product of n consecutive primes. We have strict inequality for n = 9, 18, 31, 46, 67, ..., in which case a(n) = a(n-1)*p*p'/q, where p' = nextprime(p), q = least prime factor of a(n-1). This is the case if a(n) is in A007741.

A007743 Number of achiral polyominoes with n cubical cells of the regular tiling with Schläfli symbol {4,3,4} (or polycubes).

Original entry on oeis.org

1, 1, 2, 6, 17, 58, 191, 700, 2515, 9623, 36552, 143761, 564443, 2259905, 9057278, 36705846, 149046429, 609246350, 2495727647, 10267016450, 42322763940, 174974139365
Offset: 1

Views

Author

Arlin Anderson (starship1(AT)gmail.com)

Keywords

Comments

A000162 but with both copies of each mirror-image deleted.
An achiral polyomino is identical to its reflection. Many of these achiral polyominoes do not have a plane of symmetry. For example, the hexomino with cell centers (0,0,0), (0,0,1), (0,1,1), (1,1,1), (1,2,1), and (1,2,2) has a center of symmetry at (1/2,1,1) but no plane of symmetry. The decomino with cell centers (0,0,0), (0,0,1), (0,1,1), (0,2,1), (0,2,2), (1,0,2), (1,1,2), (1,1,1), (1,1,0), and (1,2,0) has no plane or center of symmetry. - Robert A. Russell, Mar 21 2024

Crossrefs

Formula

a(n) = A000162(n) - 2*A371397(n) = A038119(n) - A371397(n). - Robert A. Russell, Mar 21 2024

Extensions

a(13)-a(16) from Herman Jamke (hermanjamke(AT)fastmail.fm), May 05 2007
Changed "symmetric" to "mirror-symmetric" in the title by George Sicherman, Feb 21 2018
Changed "mirror-symmetric" to "achiral" in the title to ensure that a plane of symmetry is not required. - Robert A. Russell, Mar 21 2024
a(17)-a(22) from John Mason, Sep 19 2024

A378746 a(n) = Product{i=n..primepi(2*prime(n))} prime(i).

Original entry on oeis.org

6, 15, 35, 1001, 46189, 96577, 6678671, 14535931, 1348781387, 146078888479, 18128893780549, 203079283326684719, 433601713048867373, 877779077635511999, 1816798556036292277, 39006703653387621491281, 969956148531489825059765363, 16439934720872708899318057, 4483790064773102589474664169, 1274400211992152128527851190601
Offset: 1

Views

Author

Antti Karttunen, Dec 08 2024

Keywords

Comments

Each a(n) is a proper divisor of A007741(n).
Each a(n) or one of its proper divisors is present in A337372.
a(n) is the least product of consecutive primes starting from A000040(n) such that A003961(a(n)) > 2*a(n). Note that 6, 15, 35, 46189 and 96577 are all present in A337372, i.e., are primitively primeshift-abundant numbers. For 1001 = 7*11*31, it is however its proper divisor 91 = 7*31 which gets that honor.

Crossrefs

Subsequence of A097889.
Cf. also A378745.

Programs

  • PARI
    A378746(n) = prod(i=n,primepi(2*prime(n)),prime(i));

A007744 Expansion of (1+6*x)/(1-4*x)^(7/2).

Original entry on oeis.org

1, 20, 210, 1680, 11550, 72072, 420420, 2333760, 12471030, 64664600, 327202876, 1622493600, 7909656300, 38003792400, 180324117000, 846321189120, 3934071152550, 18132120329400, 82937661506700
Offset: 0

Views

Author

Keywords

Comments

Fourth column in A104684. - Paul Barry, May 02 2005
Diagonal of the rational function 1 / (1 - x - y)^4. - Ilya Gutkovskiy, Apr 23 2025

Programs

  • Magma
    [Binomial(2*n+3, n)*Binomial(n+3, 3): n in [0..20]]; // Vincenzo Librandi, Aug 20 2011
  • Mathematica
    Array[Binomial[2 # + 3, #]*Binomial[# + 3, 3] &, 19, 0] (* Michael De Vlieger, Aug 18 2021 *)

Formula

a(n) = binomial(2n+3, n) * binomial(n+3, 3). - Paul Barry, May 02 2005
G.f.: G(0) where G(k) = 1 + 4*x*(k+1)*(4*k+5)/((2*k+1)^2 - x*(2*k+1)^2*(2*k+3)*(4*k+7)/(x*(2*k+3)*(4*k+7) + 2*(k+1)^2/G(k+1))); (continued fraction). - Sergei N. Gladkovskii, Jul 12 2012
D-finite with recurrence: n*a(n) + 2*(n-11)*a(n-1) + 12*(-2*n-1)*a(n-2) = 0. - R. J. Mathar, Nov 24 2012
Showing 1-10 of 12 results. Next