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.
70 is in the sequence since it is the first weird number and the next weird number after it is 836 = 70 + 766. The next gap which is larger than 766 occurs at 836 which is followed by 4030 = 836 + 3194.
The first 6 practical numbers are 1, 2, 4, 6, 8 and 12. The differences between these terms are 1, 2, 2, 2 and 4. The record gaps are 1, 2 and 4, which occur after the terms 1, 2 and 8.
f[p_, e_] := (p^(e + 1) - 1)/(p - 1); pracQ[n_] := (ind = Position[(fct = FactorInteger[n])[[;; , 1]]/(1 + FoldList[Times, 1, f @@@ Most @ fct]), _?(# > 1 &)]) == {}; seq = {}; m = 1; dm = 0; Do[If[pracQ[n], d = n - m; If[d > dm, dm = d; AppendTo[seq, m]]; m = n], {n, 2, 10^6}]; seq
The first 5 terms of A071395 are 20, 70, 88, 104 and 272. The differences between these terms are 50, 18, 16, and 168. The record gaps are 50 and 168, which occur after the terms 20 and 104.
primAbQ[n_] := DivisorSigma[1, n] > 2 n && AllTrue[Most @ Rest @ Divisors[n], DivisorSigma[1, #] < 2*# &]; seq = {}; m = 20; dm = 0; Do[If[primAbQ[n], d = n - m; If[d > dm, dm = d; AppendTo[seq, m]]; m = n], {n, 21, 10^6}]; seq
5 is in the sequence since it is a unitary untouchable number and the next unitary untouchable number after it is 7 = 5 + 2 with a record gap of 2. The next gap which is larger than 2 occurs at 7 which is followed by 374 = 7 + 367.
The first 6 terms of A091191 are 12, 18, 20, 30, 42 and 56. The differences between these terms are 6, 2, 10, 12 and 14. The record gaps are 6, 10, 12 and 14, which occur after the terms 12, 20, 30 and 42.
primAbQ[n_] := DivisorSigma[1, n] > 2 n && AllTrue[Most @ Rest @ Divisors[n], DivisorSigma[1, #] <= 2*# &]; seq = {}; m = 12; dm = 0; Do[If[primAbQ[n], d = n - m; If[d > dm, dm = d; AppendTo[seq, m]]; m = n], {n, 13, 10^6}]; seq
Comments