OFFSET
1,1
COMMENTS
EXAMPLE
127 is in the sequence since 127' = 1 | 127.
MAPLE
q:= n-> is(irem(n, n*add(i[2]/i[1], i=ifactors(n)[2]))=0):
select(q, [$2..300])[]; # Alois P. Heinz, Oct 11 2021
PROG
(PARI) ad(n) = vecsum([n/f[1]*f[2]|f<-factor(n+!n)~]); \\ A003415
isok(k) = (k>1) && !(k % ad(k)); \\ Michel Marcus, Oct 10 2021
CROSSREFS
KEYWORD
nonn
AUTHOR
Wesley Ivan Hurt, Oct 09 2021
STATUS
approved