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!)
A030099 Numbers k such that k^3 has only odd digits. 5
1, 11, 15, 33, 39, 71, 91, 173, 175, 179, 211, 259, 335, 3337, 4631, 5597, 7353, 12415, 21353, 22893, 25799, 69491, 110011, 124975, 199831, 227353, 237151, 462815, 492415, 708415, 1100033, 2393695, 2620611, 5088493, 5828415, 7204417, 8320335, 11164415, 11689633 (list; graph; refs; listen; history; text; internal format)
OFFSET
1,2
LINKS
Giovanni Resta, Table of n, a(n) for n = 1..563 (terms < 10^19, first 75 terms from Reinhard Zumkeller, terms 76..151 from Max Alekseyev)
MATHEMATICA
fQ[n_] := Union@ OddQ@ IntegerDigits[n^3] == {True}; Select[2 Range[3*10^6] - 1, fQ] (* Robert G. Wilson v, Aug 13 2011 *)
Select[Range[12*10^6], AllTrue[IntegerDigits[#^3], OddQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, Apr 14 2015 *)
PROG
(Haskell)
import Data.List (intersect)
a030099 n = a030099_list !! (n-1)
a030099_list = filter (null . (intersect "86420") . show . (^ 3)) [1, 3..]
-- Reinhard Zumkeller, Aug 13 2011
CROSSREFS
Sequence in context: A009407 A009433 A275242 * A085597 A316643 A097512
KEYWORD
nonn,base,nice
AUTHOR
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 March 18 22:34 EDT 2024. Contains 370951 sequences. (Running on oeis4.)