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.

A350699 Numbers k such that tau(k) + tau(k+1) + tau(k+2) + tau(k+3) + tau(k+4) = 20, where tau is the number of divisors function A000005.

Original entry on oeis.org

17, 31, 37, 43, 211, 2305, 2731, 19441, 116131, 174595, 222931, 229945, 232051, 243091, 266401, 334315, 350785, 423481, 495265, 523945, 530545, 535915, 539401, 556705, 600601, 663601, 671035, 689131, 721891, 907195, 908041, 1105105, 1113961, 1289731, 1338241
Offset: 1

Views

Author

Jon E. Schoenfield, Jan 12 2022

Keywords

Comments

It can be shown that if tau(k) + ... + tau(k+4) = 20, the quintuple (tau(k), tau(k+1), tau(k+2), tau(k+3), tau(k+4)) must be one of the following, each of which might plausibly occur infinitely often:
(2, 4, 4, 6, 4), which first occurs at k = 19441, 266401, 423481, 539401, ... (A204592);
(2, 6, 4, 4, 4), which first occurs at k = 31, 211, 2731, 116131, ...;
(4, 4, 4, 6, 2), which first occurs at k = 2305, 229945, 350785, 495265, ...;
(4, 6, 4, 4, 2), which first occurs at k = 174595, 334315, 535915, 671035, ... ({A247348(n)} - 4);
or one of the following, each of which occurs only once:
(2, 6, 2, 6, 4), which occurs only at k = 17;
(2, 4, 4, 8, 2), which occurs only at k = 37;
(2, 6, 6, 4, 2), which occurs only at k = 43.
Tau(k) + ... + tau(k+4) >= 20 for all sufficiently large k; the only numbers k for which tau(k) + ... + tau(k+4) < 20 are 1..11, 13, 15, 19, and 25.

Examples

			The table below lists each term k with a pattern (tau(k), ..., tau(k+4)) that appears only once (these appear at n = 1, 3, and 4), as well as each term k that is the smallest one having a pattern that appears repeatedly for large k (these are at n = 2, 6, 8, and 10). It also includes k = a(5) = 211, which is the smallest k that not only has a pattern that appears repeatedly for large k but also has each of k, ..., k+4 divisible by a prime > 5. (k = a(2) = 31 is a special case in that, while it and k = 211 share the same pattern of tau values, i.e., (2, 6, 4, 4, 4), their prime signatures differ at k+1: both 31+1=32 and 211+1=212 have 6 divisors, but 32 is a 5th power.)
Each of the repeatedly occurring patterns corresponds to one of the four possible orders in which the multipliers m=1..5 can appear among 5 consecutive integers of the form m*prime, and thus to a single residue of k modulo 120; e.g., k=2305 begins a run of 5 consecutive integers having the form (5*p, 2*q, 3*r, 4*s, t), where p, q, r, s, and t are distinct primes > 5, and all such runs satisfy k == 25 (mod 120).
For each of the patterns of tau values that does not occur repeatedly, and also for the special case k = 31, one or more of the five consecutive integers in k..k+4 has no prime factor > 5; each such integer appears in parentheses in the "factorization" columns.
.
                                      factorization as
                  # divisors of         m*(prime > 5)
   n  a(n)=k    k  k+1 k+2 k+3 k+4    k  k+1 k+2 k+3 k+4   k mod 120
   -  ------   --- --- --- --- ---   --- --- --- --- ---   ---------
   1      17    2   6   2   6   4      p (18)  r (20) 3t       17
   2      31    2   6   4   4   4      p (32) 3r  2s  5t       31
   3      37    2   4   4   8   2      p  2q  3r (40)  t       37
   4      43    2   6   6   4   2      p  4q (45) 2s   t       43
   5     211    2   6   4   4   4      p  4q  3r  2s  5t       91
   6    2305    4   4   4   6   2     5p  2q  3r  4s   t       25
   8   19441    2   4   4   6   4      p  2q  3r  4s  5t        1
  10  174595    4   6   4   4   2     5p  4q  3r  2s   t      115
		

Crossrefs

Numbers k such that Sum_{j=0..N-1} tau(k+j) = 2*Sum_{k=1..N} tau(k): A000040 (N=1), A350593 (N=2), A350675 (N=3), A350686 (N=4), (this sequence) (N=5), A350769 (N=6), A350773 (N=7), A350854 (N=8).

Programs

  • Mathematica
    Position[Plus @@@ Partition[Array[DivisorSigma[0, #] &, 10^6], 5, 1], 20] // Flatten (* Amiram Eldar, Jan 13 2022 *)
  • PARI
    isok(k) = numdiv(k) + numdiv(k+1) + numdiv(k+2) + numdiv(k+3) + numdiv(k+4) == 20; \\ Michel Marcus, Jan 13 2022
  • Python
    from labmath import divcount
    print([k for k in range(1, 1338242) if divcount(k) + divcount(k+1) + divcount(k+2) + divcount(k+3) + divcount(k+4) == 20]) # Karl-Heinz Hofmann, Jan 13 2022
    

Formula

{ k : tau(k) + tau(k+1) + tau(k+2) + tau(k+3) + tau(k+4) = 20 }.

A247347 Primes p such that (p-k)/(k+1) is also prime for k = 1, 2, 3.

Original entry on oeis.org

11, 23, 719, 1439, 5639, 25799, 28319, 35879, 56039, 58679, 77279, 98999, 104759, 121559, 166919, 174599, 206639, 253679, 334319, 350159, 424079, 433439, 451679, 452759, 535919, 539159, 582719, 595319, 645839, 671039, 743279, 818999, 824039
Offset: 1

Views

Author

Keywords

Comments

Could be called 3-safe primes, or safe primes of order 3, as the safe primes are the primes such that (p-1)/2 is prime.
Obviously a subsequence of the safe primes A005385 and of the supersafe primes A181841; thus (a(n)-1)/2 is a Sophie Germain prime (cf. A005384).
These numbers generate sequences 4-3-2-1 in A052126.
a(n) == -1 (mod 120) for n > 2: because (a(n)-1)/2, (a(n)-2)/3 and (a(n)-3)/4 must be integer, a(n) = -1 (mod 12), thus a(n) = -1 (mod 24) or a(n) = 11 mod(24) for all n; if a(n) = 11 (mod 24), (a(n)-3)/4 = 2 (mod 24) and would be even and not prime unless n=1; thus a(n) = -1 (mod 24) for n > 1. Now, if a(n) = 23 or 47 or 71 or 95 (mod 120), one of the (a(n)-k)/k is a multiple of 5 and thus not prime unless n = 2 and a(2) = 23 (in which case (23-3)/4 is exactly 5); thus a(n) == -1 (mod 120) for n > 2.

Examples

			a(1) = 11 because 11, (11-1)/2 = 5, (11-2)/3 = 3 and (11-3)/4 = 2 are all primes.
		

Crossrefs

Cf. A005384 (Sophie Germain primes), A005385 (safe primes), A181841 (supersafe primes), A247348 (4-safe primes), A163573 (similar definition with (p+k)/(k+1) as primes).

Programs

  • Mathematica
    lst={}; Do[p=Prime[n]; If[PrimeQ[(p-1)/2]&&PrimeQ[(p-2)/3]&&PrimeQ[(p-3)/ 4], AppendTo[lst, p]], {n, 2*9!}]; lst
    Select[Prime[Range[70000]],AllTrue[Table[(#-k)/(k+1),{k,3}],PrimeQ]&] (* Harvey P. Dale, Mar 09 2024 *)
  • PARI
    isokp(v) = (type(v) == "t_INT") && isprime(v);
    lista(nn) = {forprime(p=2, nn, if (isokp((p-1)/2) && isokp((p-2)/3) && isokp((p-3)/4), print1(p, ", ")););} \\ Michel Marcus, Sep 15 2014
Showing 1-2 of 2 results.