A350615 Indices of 1's in A350877.
1, 8, 12, 20, 742, 513152128
Offset: 1
Examples
The 1 at 513152128 is a down-drop from 2^32 at index 513152096 in A350877, 2^32 being 712032365 at index 513152095 plus the prime 3582934931.
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.
The 1 at 513152128 is a down-drop from 2^32 at index 513152096 in A350877, 2^32 being 712032365 at index 513152095 plus the prime 3582934931.
j = 1; q = 2; {j}~Join~Reap[Do[If[EvenQ[j], Set[k, j/2], Set[k, j + q]; Set[q, NextPrime[q]]]; If[OddQ[k], Sow[i]]; j = k, {i, 2, 213}]][[-1, -1]] (* Michael De Vlieger, Jan 23 2022 *)
A350616_upto(N)=select(t->t%2, A350877_first(N), 1) \\ M. F. Hasler, Jan 23 2022
j = 1; q = 2; Reap[Do[If[EvenQ[j], Set[k, j/2], Set[k, j + q]; Set[q, NextPrime[q]]]; If[OddQ[j], Sow[i + 1]]; j = k, {i, 2, 436}]][[-1, -1]] (* Michael De Vlieger, Jan 23 2022 *)
j = 1; q = 2; {j}~Join~Reap[Do[If[EvenQ[j], Set[k, j/2], Set[k, j + q]; Set[q, NextPrime[q]]]; If[OddQ[k], Sow[k]]; j = k, {i, 2, 240}]][[-1, -1]] (* Michael De Vlieger, Jan 23 2022 *)
r = 0; j = 1; q = 2; {j}~Join~Reap[Do[If[EvenQ[j], Set[k, j/2], Set[k, j + q]; Set[q, NextPrime[q]]]; If[k > r, Sow[k]; r = k]; j = k, {i, 2, 645}]][[-1, -1]] (* Michael De Vlieger, Jan 23 2022 *)
Between the first odd term, A350877(1) = 1, and second odd term, A350877(2) = 3, there are no even terms, therefore a(1) = 0. Between the second and third odd term, A350877(4) = 3, there is one even term, A350877(3) = 6, therefore a(2) = 1.
a(3) = 6 as a(2) = 3, which is not divisible by the current dividing prime 2, and the next additive prime is 3, so a(3) = 3 + 3 = 6. a(4) = 3 as a(3) = 6, the current dividing prime is 2, and 6/2 = 3. As 3 is not divisible by 2, the divisions by 2 stop, and the dividing prime becomes 3 while the additive prime resets to 2. a(5) = 5 as a(4) = 3 and the additive prime is 2, so a(5) = 3 + 2 = 5. a(6) = 8 as a(5) = 5, which is not divisible by 3, and the next additive prime is 3, so a(6) = 5 + 3 = 8. a(15) = 44 as a(43) = 132, the current dividing prime is 3, and 132/3 = 44. As 44 is not divisible by 3, the divisions by 3 stop, the dividing prime becomes 5 and the additive prime resets to 2.
a(3) = 6 as a(2) = 3, which is not divisible by the current dividing prime 2, and the next additive prime is 3, so a(3) = 3 + 3 = 6. a(4) = 3 as a(3) = 6, the current dividing prime is 2, and 6/2 = 3. As 3 is not divisible by 2, the divisions by 2 stop, and the dividing prime now becomes 3. a(5) = 8 as a(4) = 3 and the next additive prime is 5, so a(5) = 3 + 5 = 8. a(6) = 15 as a(5) = 8, which is not divisible by 3, and the next additive prime is 7, so a(6) = 8 + 7 = 15. a(7) = 5 as a(6) = 15, the current dividing prime is 3, and 15/3 = 5. As 5 is not divisible by 3, the divisions by 3 stop, and the dividing prime now becomes 5. a(8) = 16 as a(7) = 5 and the next additive prime is 11, so a(8) = 5 + 11 = 16. a(446) = 22090, a(447) = 470, a(448) = 10. This is the first time that the current term and the resulting quotient are both divisible by the current dividing prime, 47 in this case. The current additive prime is 3011, so a(449) = 3021. Coincidently 3021 is divisible by the next dividing prime 51, so a(450) = 57. This is the shortest possible gap between divisions by different primes.
Comments