A353544 Numbers k such that k and k+1 are both in A353543.
285, 43214, 190773, 2676321, 3027002, 3209073, 3894638, 5344118, 8963306, 15059985, 16558005, 18619634, 35731857, 36233846, 36413385, 37601342, 43559714, 52596434, 70700145, 75135962, 81136418, 83557617, 90577994, 91667666, 99846201, 111263074, 124896045, 128709801
Offset: 1
Keywords
Examples
285 is a term since both 285 and 286 are in A353543.
Links
- Amiram Eldar, Table of n, a(n) for n = 1..200 (terms below 10^10)
Programs
-
Mathematica
q[n_] := DivisorSigma[-1, n] > Pi^2/6 && AllTrue[Most @ Divisors[n], DivisorSigma[-1, #] < Pi^2/6 &]; Position[Partition[Array[q, 4*10^6], 2, 1], {True, True}] // Flatten