OFFSET
1,2
COMMENTS
EXAMPLE
MAPLE
f := n -> combinat:-fibonacci(n): F := (n, k) -> (n-1)*f(k) + f(k+1):
df := n -> denom(f(n)/n) - 1: period := n -> [seq(modp(F(k, n), n), k = 0..df(n))]:
isA353280 := n -> n = 0 or not member(0, period(n)):
select(isA353280, [$(0..166)]);
PROG
(SageMath)
def F(n, k): return (n - 1)*fibonacci(k) + fibonacci(k + 1)
def df(n): return denominator(fibonacci(n) / n)
def period(n): return (Integer(n).divides(F(k, n)) for k in range(df(n)))
def isA353280(n): return n == 0 or not any([k == True for k in period(n)])
def A353280List(upto): return [n for n in range(upto + 1) if isA353280(n)]
print(A353280List(165))
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, Apr 09 2022
STATUS
approved