OFFSET
1,1
LINKS
Peter Luschny, Generalized Bernoulli numbers.
EXAMPLE
20 is in this list because 7 divides 21 but 6 does not divide 20.
MAPLE
MATHEMATICA
selQ[n_] := AnyTrue[Prime[Range[PrimePi[n+1]]], Divisible[n+1, #] && !Divisible[n, #-1]&];
Select[Range[103], selQ] (* Jean-François Alcover, Jul 08 2019 *)
PROG
CROSSREFS
KEYWORD
nonn
AUTHOR
Peter Luschny, May 27 2013
STATUS
approved