A064150 - OEIS

A064150

Numbers divisible by the sum of their ternary digits.

1, 2, 3, 4, 6, 8, 9, 10, 12, 15, 16, 18, 20, 21, 24, 25, 27, 28, 30, 32, 33, 35, 36, 39, 40, 45, 48, 54, 56, 57, 60, 63, 64, 65, 72, 75, 77, 78, 80, 81, 82, 84, 87, 88, 90, 92, 93, 95, 96, 99, 100, 105, 108, 111, 112, 115, 117, 120, 132, 133, 135, 136, 144, 145, 150, 152

(list; graph; refs; listen; history; text; internal format)

OFFSET

1,2

COMMENTS

a(n) mod A053735(a(n)) = 0. - Reinhard Zumkeller, Nov 25 2009

LINKS

Reinhard Zumkeller, Table of n, a(n) for n = 1..10000 (first 1000 terms from Harry J. Smith).

Paul Dahlenberg and Tom Edgar, Consecutive factorial base Niven numbers, Fibonacci Quarterly, Vol. 56, No. 2 (2018), pp. 163-166.

MATHEMATICA

Select[Range[200], IntegerQ[#/(Plus@@IntegerDigits[#, 3])] &] (* Alonso del Arte, May 27 2011 *)

PROG

(PARI) isok(m)={m % sumdigits(m, 3) == 0} \\ Harry J. Smith, Sep 09 2009

(Haskell)

a064150 n = a064150_list !! (n-1)

a064150_list = filter (\x -> x `mod` a053735 x == 0) [1..]

-- Reinhard Zumkeller, Oct 28 2012

CROSSREFS

Cf. A005349 (Decimal), A049445 (Binary).

Sequence in context: A362077 A085451 A240911 * A259227 A196149 A240163

Adjacent sequences: A064147 A064148 A064149 * A064151 A064152 A064153

KEYWORD

base,easy,nonn,nice

AUTHOR

Len Smiley, Sep 11 2001

EXTENSIONS

Corrected and extended by Vladeta Jovovic, Sep 22 2001

Offset corrected by Reinhard Zumkeller, Oct 28 2012

STATUS

approved