Search: a076166 -id:a076166
|
|
A052004
|
|
Numbers k such that k^3 has only even digits.
|
|
+10
5
|
|
|
0, 2, 4, 20, 40, 200, 202, 400, 1822, 1824, 1902, 2000, 2002, 2020, 4000, 4352, 18220, 18240, 19020, 20000, 20002, 20020, 20200, 34372, 39154, 40000, 43520, 182200, 182400, 190200, 200000, 200002, 200020, 200200, 202000, 297092, 343720, 391540
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,2
|
|
LINKS
|
|
|
MATHEMATICA
|
Select[ Range[ 500000 ], Union[ EvenQ[ IntegerDigits[ #^3 ] ] ] == {True} & ]
Select[Range[0, 400000], AllTrue[IntegerDigits[#^3], EvenQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Oct 15 2017 *)
|
|
CROSSREFS
|
Cf. A000578, A034376, A030099, A030100, A030479, A030483, A031997, A076165, A076166, A076171, A137468.
|
|
KEYWORD
|
nonn,base,nice
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|
|
A076165
|
|
Numbers n such that sum of cubes of even digits of n equals sum of cubes of odd digits of n.
|
|
+10
3
|
|
|
14467, 14476, 14647, 14674, 14746, 14764, 16447, 16474, 16744, 17446, 17464, 17644, 41467, 41476, 41647, 41674, 41746, 41764, 44167, 44176, 44617, 44671, 44716, 44761, 46147, 46174, 46417, 46471, 46714, 46741, 47146, 47164, 47416
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
COMMENTS
|
Minimal number of digits in n is 5.
n such that sum of even digits equals sum of odd digits in A036301.
|
|
LINKS
|
|
|
EXAMPLE
|
14467 is OK because 1^3+7^3=4^3+4^3+6^3.
|
|
MATHEMATICA
|
oeQ[n_]:=Module[{idn = IntegerDigits[n]}, Total[Select[idn, OddQ]^3] == Total[Select[idn, EvenQ]^3]]; Select[Range[100000], oeQ] (* Harvey P. Dale, Sep 23 2011 *)
|
|
PROG
|
(PARI) ok(n)={my(v=digits(n)); sum(i=1, #v, v[i]^3*if(v[i]%2, 1, -1))==0} \\ Andrew Howroyd, Dec 10 2018
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
Search completed in 0.008 seconds
|