login
Numbers k such that A002977(k) - A002977(k-1) = 1.
1

%I #13 May 07 2022 09:26:48

%S 3,6,11,13,16,19,22,24,28,33,37,41,43,48,50,55,62,64,67,70,73,75,81,

%T 84,86,93,95,98,106,109,111,115,120,124,127,129,138,142,145,147,150,

%U 158,162,164,168,170,173,182,186,189,191,196,198,203,211,215,218,220,223

%N Numbers k such that A002977(k) - A002977(k-1) = 1.

%H Amiram Eldar, <a href="/A073942/b073942.txt">Table of n, a(n) for n = 1..10000</a>

%H Amiram Eldar, <a href="/A073942/a073942.jpg">Plot of a(n)/n for n = 20000..650000</a>

%F Conjecture : a(n) is asymptotic to c*n where c is around 3.8...

%t max = 1500; s = Union @ Flatten[NestWhileList[Flatten[{2*# + 1, 3*# + 1}] &, 1, Min[#1] < max &]]; 1 + Position[Differences[Select[s, # <= max &]], 1] // Flatten (* _Amiram Eldar_, May 07 2022 *)

%Y Cf. A002977.

%K nonn

%O 1,1

%A _Benoit Cloitre_, Nov 20 2002