login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A328213 Numbers m such that m and m+1 are consecutive lazy-Fibonacci-Niven 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 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

AUTHOR

Amiram Eldar, Oct 07 2019

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified August 5 17:08 EDT 2021. Contains 346488 sequences. (Running on oeis4.)