A328213 Numbers m such that m and m+1 are consecutive lazy-Fibonacci-Niven numbers (A328212).

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

Offset

1,2

Links

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

Helen G. Grundman, Consecutive Zeckendorf-Niven and lazy-Fibonacci-Niven numbers, Fibonacci Quarterly, Vol. 45, No. 3 (2007), pp. 272-276.

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,changed

Author

Amiram Eldar, Oct 07 2019

Status

approved