A377273 -id:A377273 - cp's OEIS frontend

A377271 Numbers k such that k and k+1 are both terms in A377209.

1, 2, 3, 4, 5, 12, 89, 1824, 3024, 7024, 15084, 17184, 18935, 22624, 28657, 29424, 31464, 37024, 38835, 40032, 42679, 44975, 47375, 66744, 66815, 78219, 89495, 107456, 112175, 119744, 144599, 148519, 169883, 171941, 172025, 188208, 207935, 226624, 244404, 248255

Offset: 1

Amiram Eldar, Oct 22 2024

			1824 is a term since both 1824 and 1825 are in A377209: 1824/A007895(1824) = 304 and 304/A007895(304) = 76 are integers, and 1825/A007895(1825) = 365 and 365/A007895(365) = 73 are integers.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Cf. A007895, A376793 (binary analog).
Subsequence of A328208, A328209 and A377209.
Subsequences: A377272, A377273.

zeck[n_] := Length[DeleteCases[NestWhileList[# - Fibonacci[Floor[Log[Sqrt[5]*# + 3/2]/Log[GoldenRatio]]] &, n, # > 1 &], 0]]; (* Alonso del Arte at A007895 *)
q[k_] := q[k] = Module[{z = zeck[k]}, Divisible[k, z] && Divisible[k/z, zeck[k/z]]]; Select[Range[250000], q[#] && q[#+1] &]

zeck(n) = if(n<4, n>0, my(k=2, s, t); while(fibonacci(k++)<=n, ); while(k && n, t=fibonacci(k); if(t<=n, n-=t; s++); k--); s); \\ Charles R Greathouse IV at A007895
is1(k) = {my(z = zeck(k)); !(k % z) && !((k/z) % zeck(k/z)); }
lista(kmax) = {my(q1 = is1(1), q2); for(k = 2, kmax, q2 = is1(k); if(q1 && q2, print1(k-1, ", ")); q1 = q2); }

A377456 Starts of runs of 3 consecutive integers that are all terms of A377385.

Original entry on oeis.org

39998374960, 326660221888, 520935101440, 723006782783, 923072388208, 977932351240, 1134397887874, 1351753892944, 1864828904536, 2171452161023

Offset: 1

Amiram Eldar, Oct 29 2024

			39998374960 is a term since 39998374960, 39998374961 and 39998374962 are all in A377385: 39998374960/A034968(39998374960) = 999959374, and 999959374/A034968(999959374) = 32256754 are integers, 39998374961/A034968(39998374961) = 975570121, and 975570121/A034968(975570121) = 33640349 are integers, and 39998374962/A034968(39998374962) = 1025599358, and 1025599358/A034968(1025599358) = 30164687 are integers.

Cf. A034968.
Subsequence of A118363, A328205, A377385 and A377455.
Analogous sequences: A376794 (binary), A377273 (Zeckendorf).

fdigsum(n) = {my(k = n, m = 2, r, s = 0); while([k, r] = divrem(k, m); k != 0 || r != 0, s += r; m++); s;}
is1(k) = {my(f = fdigsum(k)); !(k % f) && !((k/f) % fdigsum(k/f));}
lista(kmax) = {my(q1 = is1(1), q2 = is1(2), q3); for(k = 3, kmax, q3 = is1(k); if(q1 && q2 && q3, print1(k-2, ", ")); q1 = q2; q2 = q3);}

cp's OEIS Frontend

A377271 Numbers k such that k and k+1 are both terms in A377209.

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica

PARI