login
This site is supported by donations to The OEIS Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A030099 Numbers n such that n^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

Max Alekseyev, Table of n, a(n) for n = 1..151

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

Cf. A000578, A030100, A034376, A052004.

Sequence in context: A009407 A009433 A275242 * A085597 A097512 A032490

Adjacent sequences:  A030096 A030097 A030098 * A030100 A030101 A030102

KEYWORD

nonn,base,easy,nice,changed

AUTHOR

Patrick De Geest

EXTENSIONS

a(36)-a(75) from Reinhard Zumkeller, Aug 13 2011

a(76)-a(151) from Max Alekseyev, Oct 17 2017

STATUS

approved

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent | More pages
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy .

Last modified October 23 23:22 EDT 2017. Contains 293833 sequences.