login
The OEIS is supported by the many generous donors to the OEIS Foundation.

 

Logo
Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A202239 n such that the sum of the factorials of the digits of n equals the sum of d|n, 1<d<n. 0
620, 13407, 66061, 266533, 282401, 416641, 3507607, 7036153, 7622243, 10327663, 17735167, 34802143, 57653483, 86357113, 86546363, 91203611, 112777747, 121825337, 124283381, 127316869, 176080309, 216687451, 218172511, 231811037, 243238447, 263364883, 272368301 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,1
LINKS
FORMULA
{n: A061602(n)= A048050(n)}. - R. J. Mathar, Dec 18 2011
EXAMPLE
620 is in the sequence because 6! + 2! + 0! = 720 + 2 + 1 = 723, and sum of the divisors 1< d< n = sigma(620) - n - 1 = 1344 - 620 - 1 = 723.
MAPLE
isA202239 := proc(n)
A061602(n) = A048050(n) ;
end proc:
for n from 1 do
if isA202239(n) then
print(n) ;
end if;
end do; # R. J. Mathar, Dec 18 2011
MATHEMATICA
Q[n_]:=Module[{a=Total[Rest[Most[Divisors[n]]]]}, a == Total[IntegerDigits[n]!]]; Select[Range[2, 10^8], Q]
CROSSREFS
Sequence in context: A133207 A182351 A335961 * A010031 A252527 A232422
KEYWORD
nonn,base
AUTHOR
Michel Lagneau, Dec 16 2011
EXTENSIONS
a(17)-a(27) from Donovan Johnson, Jan 14 2012
STATUS
approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recents
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified April 20 22:14 EDT 2024. Contains 371848 sequences. (Running on oeis4.)