|
|
A291643
|
|
Numbers k such that 4 is the smallest decimal digit of k^3.
|
|
7
|
|
|
4, 36, 204, 786, 842, 1682, 2114, 3795, 3859, 3863, 4429, 4459, 4559, 4635, 7644, 7913, 7914, 8183, 8286, 8372, 8744, 8864, 9144, 9263, 9599, 16592, 17094, 17863, 18923, 19035, 19563, 19829, 20364, 20635, 20776, 36264, 38183, 38389, 38432, 40186, 44216
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
4 is in the sequence because 4^3 = 64, the smallest decimal digit of which is 4.
|
|
MATHEMATICA
|
Select[Range[50000], Min[IntegerDigits[#^3]]==4&] (* Harvey P. Dale, Aug 13 2019 *)
|
|
PROG
|
(PARI) select(k->vecmin(digits(k^3))==4, vector(50000, k, k))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|