|
|
A291641
|
|
Numbers k such that 2 is the smallest decimal digit of k^3.
|
|
6
|
|
|
3, 9, 14, 18, 29, 32, 35, 38, 62, 65, 66, 72, 78, 132, 133, 142, 144, 154, 155, 166, 177, 178, 188, 196, 198, 203, 282, 286, 288, 295, 296, 298, 305, 307, 322, 323, 328, 337, 357, 359, 362, 364, 375, 377, 382, 404, 412, 425, 444, 453, 463, 607, 609, 616, 632
(list;
graph;
refs;
listen;
history;
text;
internal format)
|
|
|
OFFSET
|
1,1
|
|
LINKS
|
|
|
EXAMPLE
|
38 is in the sequence because 38^3 = 54872, the smallest decimal digit of which is 2.
|
|
MATHEMATICA
|
Select[Range[700], Min[IntegerDigits[#^3]]==2&] (* Harvey P. Dale, Feb 23 2023 *)
|
|
PROG
|
(PARI) select(k->vecmin(digits(k^3))==2, vector(1000, k, k))
|
|
CROSSREFS
|
|
|
KEYWORD
|
nonn,base
|
|
AUTHOR
|
|
|
STATUS
|
approved
|
|
|
|