cp's OEIS Frontend

This is a front-end for the Online Encyclopedia of Integer Sequences, made by Christian Perfect. The idea is to provide OEIS entries in non-ancient HTML, and then to think about how they're presented visually. The source code is on GitHub.

Previous Showing 11-20 of 22 results. Next

A067502 Powers of 5 with digit sum also a power of 5.

Original entry on oeis.org

1, 5, 390625, 24308653429145084793531500210078610314805672534067059113676236776522261070450716567124784465334818816238150740449697195799672044813632965087890625
Offset: 1

Views

Author

Amarnath Murthy, Feb 11 2002

Keywords

Comments

Next terms are 5^977, 5^1007, 5^4938, 5^24709, 5^24733, 5^24853. - Sascha Kurz, Mar 18 2002

Crossrefs

Programs

  • Mathematica
    Select[5^(Range[209]-1),IntegerQ[Log[5,Total[IntegerDigits[#]]]]&] (* Stefano Spezia, Dec 23 2022 *)

A175169 Numbers k that divide the sum of digits of 2^k.

Original entry on oeis.org

1, 2, 5, 70
Offset: 1

Views

Author

N. J. A. Sloane, Dec 03 2010

Keywords

Comments

No other terms <= 200000. - Harvey P. Dale, Dec 16 2010
No other terms <= 1320000. - Robert G. Wilson v, Dec 18 2010
There are almost certainly no further terms.

Crossrefs

Sum of digits of k^n mod n: (k=2) A000079, A001370, A175434, A175169; (k=3) A000244, A004166, A175435, A067862; (k=5) A000351, A066001, A175456; (k=6) A000400, A066002, A175457, A067864; (k=7) A000420, A066003, A175512, A067863; (k=8) A062933; (k=13) A001022, A175527, A175528, A175525; (k=21) A175589; (k=167) A175558, A175559, A175560, A175552.

Programs

A175525 Numbers k that divide the sum of digits of 13^k.

Original entry on oeis.org

1, 2, 5, 140, 158, 428, 788, 887, 914, 1814, 1895, 1976, 2579, 2732, 3074, 3299, 3641, 4658, 4874, 5378, 5423, 5504, 6170, 6440, 6944, 8060, 8249, 8915, 9041, 9158, 9725, 9824, 10661, 11291, 13820, 15305, 17051, 17393, 18716, 19589, 20876, 21641, 23756, 24188, 25961, 28409, 30632, 31307, 32387, 33215, 34970, 35240, 36653, 36977, 41558, 43970, 44951, 47444, 51764, 52655, 53375, 53852, 54104, 56831, 57506, 59153, 66479, 68063, 73562, 78485, 79286, 87908, 92093, 102029, 106934, 114854, 116321, 134051, 139397, 184037, 192353, 256469, 281381, 301118, 469004
Offset: 1

Views

Author

T. D. Noe, Dec 03 2010

Keywords

Comments

Almost certainly there are no further terms.
Comments from Donovan Johnson on the computation of this sequence, Dec 05 2010 (Start):
The number of digits of 13^k is approximately 1.114*k, so I defined an array d() that is a little bigger than 1.114 times the maximum k value to be checked. The elements of d() each are the value of a single digit of the decimal expansion of 13^k with d(1) being the least significant digit.
It's easier to see how the program works if I start with k = 2.
For k = 1, d(2) would have been set to 1 and d(1) would have been set to 3.
k = 2:
x = 13*d(1) = 13*3 = 39
y = 39\10 = 3 (integer division)
x-y*10 = 39-30 = 9, d(1) is set to 9
x = 13*d(2)+y = 13*1+3 = 16, y is the carry from previous digit
y = 16\10 = 1
x-y*10 = 16-10 = 6, d(2) is set to 6
x = 13*d(3)+y = 13*0+1 = 1, y is the carry from previous digit
y = 1\10 = 0
x-y*10 = 1-0 = 1, d(3) is set to 1
These steps would of course be inside a loop and that loop would be inside a k loop. A pointer to the most significant digit increases usually by one and sometimes by two for each successive k value checked. The number of steps of the inner loop is the size of the pointer. A scan is done from the first element to the pointer element to get the digit sum.
(End)
No other terms < 3*10^6. - Donovan Johnson, Dec 07 2010

Crossrefs

Sum of digits of k^n mod n: (k=2) A000079, A001370, A175434, A175169; (k=3) A000244, A004166, A175435, A067862; (k=5) A000351, A066001, A175456; (k=6) A000400, A066002, A175457, A067864; (k=7) A000420, A066003, A175512, A067863; (k=8) A062933; (k=13) A001022, A175527, A175528, A175525; (k=21) A175589; (k=167) A175558, A175559, A175560, A175552.

Programs

  • Mathematica
    Select[Range[1000], Mod[Total[IntegerDigits[13^#]], #] == 0 &]

Extensions

a(47)-a(79) from N. J. A. Sloane, Dec 04 2010
a(80)-a(85) from Donovan Johnson, Dec 05 2010

A175552 Numbers k such that the digit sum of 167^k is divisible by k.

Original entry on oeis.org

1, 2, 5, 7, 22, 490, 724, 778, 868, 994, 1109, 1390, 1415, 1462, 1642, 1739, 1829, 2146, 2362, 3136, 4954, 6437, 6628, 7103, 11200, 12424, 12863, 14242, 14249, 15059, 15203, 16222, 17140, 18353, 19192, 21233, 22853, 24106, 24574, 24833, 26896, 27652, 28253, 30323, 31306, 31594, 32386, 33790, 34985, 36184, 36310, 40673, 42196, 43931, 45911, 45983
Offset: 1

Views

Author

N. J. A. Sloane, Dec 03 2010

Keywords

Comments

From Donovan Johnson, Dec 03 2010: (Start)
To generate the additional terms I used PFGW.exe to get the decimal expansion for each number of the form 167^n (n <= 50000). Then I wrote a program in powerbasic to read the pfgw.out file and get the digit sums.
The digit sum is 10 times the n value for terms a(5) to a(56). (End)
I believe that this sequence is finite. - N. J. A. Sloane, Dec 05 2010

Crossrefs

Sum of digits of k^n mod n: (k=2) A000079, A001370, A175434, A175169; (k=3) A000244, A004166, A175435, A067862; (k=5) A000351, A066001, A175456; (k=6) A000400, A066002, A175457, A067864; (k=7) A000420, A066003, A175512, A067863; (k=8) A062933; (k=13) A001022, A175527, A175528, A175525; (k=21) A175589; (k=167) A175558, A175559, A175560, A175552.

Programs

  • Mathematica
    Select[Range[10000], Mod[Total[IntegerDigits[167^#]], #] == 0 &]

Extensions

a(25)-a(56) from Donovan Johnson, Dec 03 2010

A175434 (Digit sum of 2^n) mod n.

Original entry on oeis.org

0, 0, 2, 3, 0, 4, 4, 5, 8, 7, 3, 7, 7, 8, 11, 9, 14, 1, 10, 11, 5, 3, 18, 13, 4, 14, 8, 15, 12, 7, 16, 26, 29, 27, 24, 28, 19, 29, 32, 21, 9, 4, 13, 14, 17, 24, 21, 25, 16, 26, 29, 27, 24, 28, 37, 29, 23, 12, 18, 22, 13, 23, 26, 24, 21, 43, 43, 35, 20, 0, 15, 37, 37, 56, 50, 30, 27, 22, 31, 32, 26, 42, 39, 34, 43, 26, 20, 27, 24, 28, 55, 47, 32, 57, 45, 31, 40, 14, 8, 15
Offset: 1

Views

Author

N. J. A. Sloane, Dec 03 2010

Keywords

Examples

			For n = 1,2,3,4,5,6, the digit-sum of 2^n is 2,4,8,7,5,10, so
a(1) through a(6) are 0,0,2,3,0,4. - _N. J. A. Sloane_, Aug 12 2014
		

Crossrefs

Sum of digits of k^n mod n: (k=2) A000079, A001370, A175434, A175169; (k=3) A000244, A004166, A175435, A067862; (k=5) A000351, A066001, A175456; (k=6) A000400, A066002, A175457, A067864; (k=7) A000420, A066003, A175512, A067863; (k=8) A062933; (k=13) A001022, A175527, A175528, A175525; (k=21) A175589; (k=167) A175558, A175559, A175560, A175552.

Programs

  • Mathematica
    Table[Mod[Total[IntegerDigits[2^n]],n],{n,100}] (* Harvey P. Dale, Aug 12 2014 *)

Extensions

Offset changed to 1 at the suggestion of Harvey P. Dale, Aug 12 2014

A175456 (Digit sum of 5^n) mod n.

Original entry on oeis.org

0, 1, 2, 1, 1, 1, 2, 1, 8, 0, 5, 4, 10, 6, 14, 10, 5, 10, 2, 1, 20, 1, 5, 10, 2, 1, 8, 1, 25, 1, 11, 10, 23, 1, 22, 1, 30, 10, 17, 10, 14, 19, 20, 19, 26, 20, 34, 1, 11, 1, 50, 26, 13, 19, 2, 28, 44, 37, 14, 19, 11, 1, 44, 38, 34, 49, 51, 60, 59, 53, 58, 1, 2, 19, 44, 19, 14, 70, 63, 10, 71, 1, 41, 28, 2, 10, 17, 10, 5, 46, 38, 10, 17, 37, 32, 37, 2, 72, 71, 83
Offset: 1

Views

Author

N. J. A. Sloane, Dec 03 2010

Keywords

Crossrefs

Programs

  • Mathematica
    Table[Mod[Total[IntegerDigits[5^n]],n],{n,100}] (* Harvey P. Dale, Jan 05 2012 *)

A372808 a(n) = sum of the digits (mod 5) of 5^n.

Original entry on oeis.org

1, 0, 2, 3, 3, 6, 4, 8, 10, 11, 10, 18, 18, 13, 9, 14, 18, 26, 24, 29, 26, 27, 27, 29, 32, 37, 34, 34, 40, 38, 36, 39, 46, 49, 38, 47, 39, 49, 44, 54, 60, 57, 60, 64, 66, 71, 52, 48, 55, 63, 71, 67, 70, 59, 52, 52, 71, 85, 96, 96, 84, 89, 87, 85, 76, 74, 71, 80
Offset: 0

Views

Author

Paolo Xausa, May 13 2024

Keywords

Examples

			a(7) = 8 since 5^7 = 78125 and (7 mod 5) + (8 mod 5) + (1 mod 5) + (2 mod 5) + (5 mod 5) = 2 + 3 + 1 + 2 + 0 = 8.
		

Crossrefs

Programs

  • Mathematica
    Array[Total[Mod[IntegerDigits[5^#], 5]] &, 100, 0]
  • PARI
    a(n) = my(d=digits(5^n)); vecsum(apply(x->(x % 5), d)); \\ Michel Marcus, May 17 2024

Formula

Sum_{n >= 1} a(n)/5^n = 1/9. See Example 5.1 (e) in Borwein and Borwein (1992), p. 639.

A122955 Numbers k such that although the number of digits in 5^k is larger, the sum of the digits is less than that of the previous power of 5.

Original entry on oeis.org

5, 11, 12, 13, 19, 25, 28, 29, 33, 35, 45, 46, 52, 53, 58, 59, 61, 62, 63, 65, 76, 78, 79, 81, 85, 88, 89, 91, 92, 95, 98, 101, 104, 108, 109, 114, 115, 116, 119, 125, 131, 136, 139, 144, 145, 158, 161, 162, 168, 169, 178, 179, 181, 184, 185, 189, 195, 197, 199, 207
Offset: 1

Views

Author

Robert G. Wilson v, Oct 25 2006

Keywords

Comments

Conjecture: Natural density is log 5/log 100. - Charles R Greathouse IV, Nov 15 2010

Examples

			11 is a term because 5^11 = 48828125 has 8 digits and digit sum 4+8+8+2+8+1+2+5 = 38 while 5^10 = 9765625 has 7 digits and digit sum 9+7+6+5+6+2+5 = 40.
		

Crossrefs

Cf. A066001.

Programs

  • Mathematica
    Select[ Range@ 208, Floor[Log[10, 5^# ]] > Floor[Log[10, 5^(# - 1)]] && Plus @@ IntegerDigits[5^# ] < Plus @@ IntegerDigits[5^(# - 1)] &]

A286512 Numbers N for which there is k > 0 such that sum of digits(N^k) = N, but the least such k is larger than the least k for which sum of digits(N^k) > N*11/10.

Original entry on oeis.org

17, 31, 63, 86, 91, 103, 118, 133, 155, 157, 211, 270, 290, 301, 338, 352, 421, 432, 440, 441, 450, 478, 513, 533, 693, 853, 1051, 1237, 1363, 1459, 1526, 1665, 2781
Offset: 1

Views

Author

M. F. Hasler, May 18 2017

Keywords

Comments

The set of these numbers appears to be finite, and probably 2781 is its largest element.
The motivation for this sequence is the study of the behavior of the sum of digits of powers of a given number. Statistically, sumdigits(n^k) ~ 4.5*log_10(n')*k (where n' = n without trailing 0's), but typically fluctuations of some percent persist up to large values of k. (Cf. the graph of sequences n^k cited in the cross-references.)
The ratio of 11/10 is somewhat arbitrary, but larger ratios of the simple form (1 + 1/m) yield quite small subsets of this sequence (for m=2 the only element is 118, for m=3 the set is {31, 86, 118}, for m=1 it is empty), and smaller ratios yield much larger (possibly infinite?) sets. Also, the condition can be written sumdigits(N^k)-N > N/10, and 10 is the base we are using.
To compute the sequence A247889 we would like to have a rule telling us when we can stop the search for an exponent. It appears that sumdigits(N^k) >= 2*N is a limit that works for all N; the present sequence gives counterexamples to the (r.h.s.) limit of 1.1*N. The above comment mentioned the counterexamples {118} resp. {31, 86, 118}) for limits N*3/2 and N*4/3.

Crossrefs

Cf. sum of digits of k^n: A001370 (k=2), A004166 (k=3), A065713 (k=4), A066001 (k=5), A066002 (k=6), A066003 (k=7), A066004 (k=8), A065999 (k=9), A066005 (k=11), A066006 (k=12). (In these sequences, k is fixed and n is the index/exponent; in the present sequence it's the opposite and therefore the names k <-> n are exchanged.)

Programs

  • PARI
    for(n=1,5000,A247889(n)&&!A247889(n,n*11\10)&&print1(n",")) \\ Here, A247889() is a variant of the function computing that sequence which accepts as second optional argument a limit m, stopping the search for the exponent as soon as the digital sum of n^k exceeds m.

A287058 Sum of decimal digits of 118^n.

Original entry on oeis.org

1, 10, 19, 19, 55, 64, 55, 64, 82, 91, 109, 100, 109, 181, 118, 145, 127, 163, 154, 172, 154, 190, 226, 190, 208, 217, 271, 289, 253, 280, 298, 307, 334, 289, 334, 280, 361, 343, 334, 379, 406, 406, 379, 424, 379, 424, 415, 406, 523, 433, 478
Offset: 0

Views

Author

M. F. Hasler, May 18 2017

Keywords

Comments

118 is exceptional in the sense that it appears to be the only number m for which the smallest k such that sumdigits(m^k) = m occurs after the smallest k such that sumdigits(m^k) > m*3/2. If this last limit is decreased to m*4/3, then 31 and 86 also have this property. It appears that no number has this property if the limit is increased to 2m, see also A247889.
It is also remarkable that many values in the sequence are repeated (19, 55, 64, 109, 190, 154, 280, 289, 334 (3 times), 379, 406, 424, ...), while most other numbers never appear.

Crossrefs

Cf. sum of digits of k^n: A001370 (k=2), A004166 (k=3), A065713 (k=4), A066001(k=5), A066002 (k=6), A066003 (k=7), A066004 (k=8), A065999 (k=9), A066005 (k=11), A066006 (k=12).

Programs

  • Mathematica
    Total[IntegerDigits[#]]&/@NestList[118#&,1,50] (* Harvey P. Dale, Feb 24 2022 *)
  • PARI
    a(n)=sumdigits(118^n)
Previous Showing 11-20 of 22 results. Next