

A328213


Numbers m such that m and m+1 are consecutive lazyFibonacciNiven numbers (A328212).


11



1, 15, 35, 369, 549, 710, 890, 1089, 1989, 2196, 2629, 2951, 3311, 3679, 3684, 4927, 5268, 5291, 5488, 5603, 5775, 5819, 5928, 5940, 6524, 7072, 7364, 7403, 7475, 7500, 7657, 7812, 8567, 9254, 9360, 9372, 9383, 9477, 9841, 10205, 10304, 10360, 11816, 13299, 13454
(list;
graph;
refs;
listen;
history;
text;
internal format)



OFFSET

1,2


LINKS

Table of n, a(n) for n=1..45.
Helen G. Grundman, Consecutive ZeckendorfNiven and lazyFibonacciNiven numbers, Fibonacci Quarterly, Vol. 45, No. 3 (2007), pp. 272276.


EXAMPLE

15 is in the sequence since both 15 and 16 are in A328212: A112310(15) = 3 is a divisor of 15, and A112310(16) = 4 is a divisor of 16.


MATHEMATICA

ooQ[n_] := Module[{k = n}, While[k > 3, If[Divisible[k, 4], Return[True], k = Quotient[k, 2]]]; False]; c = 0; cn = 0; k = 1; s = {}; v = Table[1, {2}]; While[cn < 45, If[! ooQ[k], c++; d = Total@IntegerDigits[k, 2]; If[Divisible[c, d], v = Join[Rest[v], {c}]; If[AllTrue[Differences[v], # == 1 &], cn++; AppendTo[s, c  1]]]]; k++]; s


CROSSREFS

Cf. A112310, A328212.
Sequence in context: A208728 A219689 A074891 * A271733 A280883 A306325
Adjacent sequences: A328210 A328211 A328212 * A328214 A328215 A328216


KEYWORD

nonn


AUTHOR

Amiram Eldar, Oct 07 2019


STATUS

approved



