OFFSET
1,1
COMMENTS
Note the quadruple: 12255,12256,12257,12258 and the triple: 20174,20175,20176. Conjecture: sequence is infinite.
MATHEMATICA
SequencePosition[Table[PrimeOmega[n/Total[IntegerDigits[n]]], {n, 22000}], {2, 2}][[;; , 1]] (* Harvey P. Dale, Mar 18 2023 *)
PROG
(PARI) isA085772(k)={my(t=k/sumdigits(k)); !frac(t) && bigomega(t)==2}
isok(k)={isA085772(k) && isA085772(k+1)} \\ Andrew Howroyd, Sep 18 2024
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Jason Earls, Jul 23 2003
EXTENSIONS
Offset changed by Andrew Howroyd, Sep 18 2024
STATUS
approved