The OEIS is supported by the many generous donors to the OEIS Foundation.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
Reminder: The OEIS is hiring a new managing editor, and the application deadline is January 26.
%I #7 Dec 08 2018 02:38:58
%S 0,0,0,0,0,0,0,0,0,0,0,62,664,3366,11528,31030,70992,144494,269296,
%T 468558,0,664,3968,14832,42496,101960,215424,413728,737792,1240056,0,
%U 3366,14832,45198,112824,245790,484056,881622,1508688,2453814,0,11528
%N (Sum of digits of n)^6 - (sum of digits^6 of n).
%C a(n) = 0 iff n is a single-digit number or is a power of ten times a single-digit number.
%t f[n_] := Plus @@ IntegerDigits[n]^6 - Plus @@ (IntegerDigits[n]^6); Table[ f[n], {n, 0, 100}]
%K base,easy,nonn
%O 0,12
%A _N. J. A. Sloane_ and _Robert G. Wilson v_, May 04 2002