Voozh

A239935

Numbers k such that DigitSum(3^k) > DigitSum(3^(k+1)).

11, 14, 15, 18, 20, 27, 29, 31, 34, 38, 41, 43, 47, 48, 50, 53, 54, 58, 59, 63, 64, 65, 67, 69, 71, 72, 75, 77, 79, 83, 88, 90, 94, 98, 99, 102, 103, 107, 109, 112, 114, 118, 119, 123, 125, 131, 132, 134, 136, 139, 141, 142, 146, 150, 154, 159, 161, 164, 167

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

OFFSET

1,1

LINKS

Robert Israel, Table of n, a(n) for n = 1..8009

EXAMPLE

For k=11, we have DigitSum(3^11) = 27 > 18 = DigitSum(3^12).

MAPLE

N:= 1000: # to get the first N terms

threen:= 3:

digsum:= 3:

count:= 0:

for n from 1 while count < N do

threen:= 3*threen;

oldsum:= digsum;

digsum:= convert(convert(threen, base, 10), `+`);

if oldsum > digsum then

count:= count+1;

A239935[count]:= n;

od: # Robert Israel, Apr 18 2014

MATHEMATICA

lis = Table[Total[IntegerDigits[3^n, 10]], {n, 1, 100}];

Flatten[Position[Greater @@@ Partition[lis, 2, 1], True]]

PROG

(PARI) isok(k) = sumdigits(3^k) > sumdigits(3^(k+1)); \\ Michel Marcus, Jul 03 2021

CROSSREFS

Cf. A004166, A007953.

Sequence in context: A091403 A061743 A038630 * A381352 A219179 A221281

Adjacent sequences: A239932 A239933 A239934 * A239936 A239937 A239938

KEYWORD

nonn,base

AUTHOR

Oliver Bel, Mar 29 2014

EXTENSIONS

More terms from Jon E. Schoenfield, Mar 29 2014

STATUS

approved

URL: https://oeis.org/A239935

⇱ A239935 - OEIS