reviewed
approved
reviewed
approved
proposed
reviewed
editing
proposed
(PARI) is_A014575(n)={my(v=vecsort(Vecsmall(Str(n)))); #v%2 && return; my( M=10^(#v\2), L=M\10); fordiv(n, d, d<L && next; d<M || return; v==vecsort(Vecsmall(Str(d, n/d))) && return(d)) } \\ Twice as fast. Returns smallest factor (A048933) if vampire number, or false (empty, 0) else. - M. F. Hasler, Mar 11 2021
approved
editing
proposed
approved
editing
proposed
Ely Golden, <a href="/A014575/a014575.py.txt">Sympy program for generating vampire numbers (definition 2)</a>
approved
editing
proposed
approved
editing
proposed