OFFSET
1,2
LINKS
G. C. Greubel, Table of n, a(n) for n = 1..1000
EXAMPLE
11 -> 11*9*7*5*3*1=10395 -> (1+0+3+9+5)/(1+1) = 9.
MAPLE
P:=proc(n) local i, j, k, w, x; for i from 1 by 1 to n do w:=0; k:=i; while k>0 do w:=w+k-(trunc(k/10)*10); k:=trunc(k/10); od; x:=i; j:=i-2; while j >0 do x:=x*j; j:=j-2; od: k:=x; x:=0; while k>0 do x:=x+k-(trunc(k/10)*10); k:=trunc(k/10); od; if trunc(x/w)=x/w then print(i); fi; od; end: P(1000);
MATHEMATICA
Select[Range[100], Divisible[Total[IntegerDigits[#!!, 10]], Total[IntegerDigits[#, 10]]] &] (* G. C. Greubel, Sep 30 2016 *)
CROSSREFS
KEYWORD
easy,nonn,base
AUTHOR
Paolo P. Lava, Nov 30 2007
EXTENSIONS
Offset 1 and b-file adapted by Paolo P. Lava, Jun 17 2024
STATUS
approved