OFFSET
1,1
LINKS
Donovan Johnson, Table of n, a(n) for n = 1..1000
PrimeFan, Listing of Esoteric Integer Sequences
MAPLE
A010888 := proc(n)
d := (add(d, d=convert(n, base, 10))) mod 9 ;
if d = 0 then
return 9;
else
return d;
end if;
end proc:
isA209192 := proc(n)
end proc:
for n from 2 to 40000 do if isA209192(n) then printf("%d, ", n) ; end if; end do: # R. J. Mathar, Mar 22 2012
MATHEMATICA
drlpfQ[n_]:=NestWhile[Total[IntegerDigits[#]]&, n, #>9&]==FactorInteger[n][[-1, 1]]; Select[Range[2, 126000], drlpfQ] (* Harvey P. Dale, Sep 26 2024 *)
CROSSREFS
KEYWORD
nonn,base
AUTHOR
N. J. A. Sloane, Mar 05 2012
STATUS
approved