OFFSET
1,1
COMMENTS
LINKS
EXAMPLE
PROG
(PARI) is_A388036(n) = { my(s=sigma(n), p=2); n *= 3; while(n, if(min(n%p, s%p) != (n%p), return(0)); n = n\p; s = s\p; p = nextprime(1+p)); (1); };
CROSSREFS
KEYWORD
nonn,base
AUTHOR
Antti Karttunen, Sep 16 2025
STATUS
approved
