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.

Showing 1-10 of 12 results. Next

A342426 Niven numbers in base 3/2: numbers divisible by their sum of digits in fractional base 3/2 (A244040).

Original entry on oeis.org

1, 2, 6, 9, 14, 21, 40, 42, 56, 72, 84, 108, 110, 120, 126, 130, 143, 154, 156, 162, 165, 168, 169, 176, 180, 182, 189, 198, 220, 225, 231, 243, 252, 280, 288, 297, 306, 308, 320, 322, 330, 336, 348, 350, 364, 390, 423, 430, 432, 459, 460, 462, 480, 490, 504
Offset: 1

Views

Author

Amiram Eldar, Mar 11 2021

Keywords

Examples

			6 is a term since its representation in base 3/2 is 210 and 2 + 1 + 0 = 3 is a divisor of 6.
9 is a term since its representation in base 3/2 is 2100 and 2 + 1 + 0 + 0 = 3 is a divisor of 9.
		

Crossrefs

Subsequences: A342427, A342428, A342429.
Similar sequences: A005349 (decimal), A049445 (binary), A064150 (ternary), A064438 (quaternary), A064481 (base 5), A118363 (factorial), A328208 (Zeckendorf), A328212 (lazy Fibonacci), A331085 (negaFibonacci), A333426 (primorial), A334308 (base phi), A331728 (negabinary).

Programs

  • Mathematica
    s[0] = 0; s[n_] := s[n] = s[2*Floor[n/3]] + Mod[n, 3]; q[n_] := Divisible[n, s[n]]; Select[Range[500], q]

A342427 Numbers k such that k and k + 1 are both Niven numbers in base 3/2 (A342426).

Original entry on oeis.org

1, 168, 459, 1817, 2196, 2197, 2655, 3128, 3280, 3699, 4199, 4575, 4927, 5184, 5795, 6600, 7215, 7259, 7656, 7657, 8448, 9636, 11304, 11339, 12492, 14160, 14175, 14424, 14805, 15624, 15625, 16335, 16336, 16925, 17802, 19170, 20349, 20811, 21624, 21735, 22197
Offset: 1

Views

Author

Amiram Eldar, Mar 11 2021

Keywords

Examples

			168 is a term since both 168 and 169 are Niven numbers in base 3/2. 168 in base 3/2 is 2120220210 and 2+1+2+0+2+2+0+2+1+0 = 12 is a divisor of 168. 169 in base 3/2 is 2120220211 and 2+1+2+0+2+2+0+2+1+1 = 13 is a divisor of 169.
		

Crossrefs

Subsequence of A342426.
Subsequences: A342428 and A342429.
Similar sequences: A330927 (decimal), A328205 (factorial), A328209 (Zeckendorf), A328213 (lazy Fibonacci), A330931 (binary), A331086 (negaFibonacci), A333427 (primorial), A334309 (base phi), A331820 (negabinary).

Programs

  • Mathematica
    s[0] = 0; s[n_] := s[n] = s[2*Floor[n/3]] + Mod[n, 3]; q[n_] := Divisible[n, s[n]]; Select[Range[22000], q[#] && q[# + 1] &]

A342428 Starts of runs of 3 consecutive Niven numbers in base 3/2 (A342426).

Original entry on oeis.org

2196, 7656, 15624, 16335, 64375, 109224, 171624, 202824, 328887, 329427, 392733, 393640, 447578, 482238, 494450, 520695, 631824, 723519, 773790, 785695, 820960, 876987, 981783, 986607, 1021824, 1026750, 1030455, 1084048, 1108094, 1160670, 1235070, 1242824, 1412908
Offset: 1

Views

Author

Amiram Eldar, Mar 11 2021

Keywords

Examples

			2196 is a term since 2196, 2197 and 2198 are all Niven numbers in base 3/2.
		

Crossrefs

Subsequence of A342426 and A342427.
Subsequences: A342429.
Similar sequences: A154701 (decimal), A328206 (factorial), A328210 (Zeckendorf), A328214 (lazy Fibonacci), A330932 (binary), A331087 (negaFibonacci), A333428 (primorial), A334310 (base phi), A331822 (negabinary).

Programs

  • Mathematica
    s[0] = 0; s[n_] := s[n] = s[2*Floor[n/3]] + Mod[n, 3]; q[n_] := Divisible[n, s[n]]; Select[Range[10^6], AllTrue[# + {0, 1, 2}, q] &]

A344344 Starts of runs of 4 consecutive Gray-code Niven numbers (A344341).

Original entry on oeis.org

1, 6, 30, 126, 510, 543, 783, 903, 2046, 2093, 3773, 3903, 7133, 7743, 8190, 8223, 8703, 10087, 12303, 12543, 14343, 14463, 15423, 15903, 16143, 16263, 20167, 22687, 27727, 30247, 30653, 30783, 32766, 35629, 40327, 47509, 47887, 49133, 50407, 57533, 60071, 60487
Offset: 1

Views

Author

Amiram Eldar, May 15 2021

Keywords

Comments

Are there 5 consecutive Gray-code Niven numbers? There are no such numbers below 10^10.

Examples

			1 is a term since 1, 2, 3 and 4 are all Gray-code Niven numbers.
		

Crossrefs

Subsequence of A344341, A344342 and A344343.
Similar sequences: A141769 (decimal), A328207 (factorial), A328211 (Zeckendorf), A328215 (lazy Fibonacci), A330933 (binary), A334311 (base phi), A331824 (negabinary), A342429 (base 3/2).

Programs

  • Mathematica
    gcNivenQ[n_] := Divisible[n, DigitCount[BitXor[n, Floor[n/2]], 2, 1]]; Select[Range[60000], AllTrue[# + {0, 1, 2, 3}, gcNivenQ] &]

A352092 Starts of runs of 4 consecutive tribonacci-Niven numbers (A352089).

Original entry on oeis.org

1602, 218349, 296469, 1213749, 1291869, 1896630, 1952070, 2153709, 2399550, 3149109, 3753870, 3809310, 3983229, 4226208, 4256790, 4449288, 4711482, 5707897, 5727708, 6141750, 6589230, 6969429, 7205757, 7229208, 7276143, 7292943, 7454710, 7752588, 7937109, 8877069
Offset: 1

Views

Author

Amiram Eldar, Mar 04 2022

Keywords

Comments

Conjecture: There are no runs of 5 consecutive tribonacci-Niven numbers (checked up to 10^10).

Examples

			1602 is a term since 1602, 1603, 1604 and 1605 are all divisible by the number of terms in their minimal tribonacci representation:
     k    A278038(k)  A278043(k)  k/A278043(k)
  --------------------------------------------
  1602  110100011010           6           267
  1603  110100011011           7           229
  1604  110100100000           4           401
  1605  110100100001           5           321
		

Crossrefs

Subsequence of A352089, A352090 and A352091.

Programs

  • Mathematica
    t[1] = 1; t[2] = 2; t[3] = 4; t[n_] := t[n] = t[n - 1] + t[n - 2] + t[n - 3]; triboNivenQ[n_] := Module[{s = {}, m = n, k}, While[m > 0, k = 1; While[t[k] <= m, k++]; k--; AppendTo[s, k]; m -= t[k]; k = 1]; Divisible[n, DigitCount[Total[2^(s - 1)], 2, 1]]]; seq[count_, nConsec_] := Module[{tri = triboNivenQ /@ Range[nConsec], s = {}, c = 0, k = nConsec + 1}, While[c < count, If[And @@ tri, c++; AppendTo[s, k - nConsec]]; tri = Join[Rest[tri], {triboNivenQ[k]}]; k++]; s]; seq[6, 4]

A352110 Starts of runs of 4 consecutive lazy-tribonacci-Niven numbers (A352107).

Original entry on oeis.org

1081455, 1976895, 2894175, 5886255, 6906912, 15604110, 16588752, 19291479, 20387232, 25919439, 32394942, 34801557, 35654175, 36813582, 36907899, 39117219, 41407392, 43520832, 46181055, 47954499, 52145952, 54524319, 54815397, 56733639, 57775102, 58942959, 59292177
Offset: 1

Views

Author

Amiram Eldar, Mar 05 2022

Keywords

Comments

Conjecture: There are no runs of 5 consecutive lazy-tribonacci-Niven numbers (checked up to 6*10^9).

Examples

			1081455 is a term since 1081455, 1081456, 1081457 and 1081458 are all divisible by the number of terms in their maximal tribonacci representation:
        k               A352103(k)   A352104(k)    k/A352104(k)
  -------  -----------------------   ----------    ------------
  1081455  10101011011110110011110           15           72097
  1081456  10101011011110110011111           16           67591
  1081457  10101011011110110100100           13           83189
  1081458  10101011011110110100101           14           77247
		

Crossrefs

Subsequence of A352107, A352108 and A352109.

A352345 Starts of runs of 4 consecutive lazy-Pell-Niven numbers (A352342).

Original entry on oeis.org

750139, 41765247, 54831951, 56423275, 136038447, 151175724, 223956843, 227483124, 293913170, 362557214, 382572475, 457616575, 502106253, 562407324, 586380624, 637133390, 724382239, 771849439, 774421478, 859463253, 926398647, 953750523, 1043787390, 1193063550
Offset: 1

Views

Author

Amiram Eldar, Mar 12 2022

Keywords

Comments

Conjecture: There are no runs of 5 consecutive lazy-Pell-Niven numbers (checked up to 10^9).

Examples

			750139 is a term since 750139, 750140, 750141 and 750142 are all divisible by the sum of the digits in their maximal Pell representation:
       k        A352339(k)  A352340(k)  k/A352340(k)
  ------  ----------------  ---------   -----------
  750139  1102022021112220         19         39481
  750140  1102022021112221         20         37507
  750141  1102022021112222         21         35721
  750142  1102022021120210         17         44126
		

Crossrefs

A352511 Starts of runs of 4 consecutive Catalan-Niven numbers (A352508).

Original entry on oeis.org

144, 15630, 164862, 202761, 373788, 450189, 753183, 1403961, 1779105, 2588415, 2673774, 2814229, 2850880, 3009174, 3013722, 3045870, 3091023, 3702390, 3942519, 4042950, 4432128, 4725432, 4938348, 5718942, 5907312, 6268248, 6519615, 6592752, 6791379, 7095492, 8567802
Offset: 1

Views

Author

Amiram Eldar, Mar 19 2022

Keywords

Comments

Conjecture: There are no runs of 5 consecutive Catalan-Niven numbers (checked up to 10^9).

Examples

			144 is a term since 144, 145, 146 and 147 are all divisible by the sum of the digits in their Catalan representation:
    k  A014418(k)  A014420(k)  k/A014420(k)
  ---  ----------  ----------  ------------
  144      100210           4            36
  145      100211           5            29
  146      101000           2            73
  147      101001           3            49
		

Crossrefs

Programs

  • Mathematica
    c[n_] := c[n] = CatalanNumber[n]; catNivQ[n_] := Module[{s = {}, m = n, i}, While[m > 0, i = 1; While[c[i] <= m, i++]; i--; m -= c[i]; AppendTo[s, i]]; Divisible[n, Plus @@ IntegerDigits[Total[4^(s - 1)], 4]]]; seq[count_, nConsec_] := Module[{cn = catNivQ /@ Range[nConsec], s = {}, c = 0, k = nConsec + 1}, While[c < count, If[And @@ cn, c++; AppendTo[s, k - nConsec]]; cn = Join[Rest[cn], {catNivQ[k]}]; k++]; s]; seq[5, 4]

A364219 Starts of runs of 4 consecutive integers that are Jacobsthal-Niven numbers (A364216).

Original entry on oeis.org

1, 42, 43, 2731, 11605, 13024, 14229, 25983, 39390, 45727, 46624, 47529, 60073, 96039, 111390, 131103, 132010, 133984, 134430, 140767, 148180, 148181, 148509, 174762, 174763, 187744, 197790, 237609, 247114, 266453, 275229, 287988, 312190, 330847, 354429, 370269
Offset: 1

Views

Author

Amiram Eldar, Jul 14 2023

Keywords

Crossrefs

Subsequence of A364216, A364217 and A364218.
Subsequences: A364220, A364221.

Programs

  • Mathematica
    consecJacobsthalNiven[4*10^5, 4] (* using the function from A364217 *)
  • PARI
    lista(4*10^5, 4) \\ using the function from A364217

A364382 Starts of runs of 4 consecutive integers that are greedy Jacobsthal-Niven numbers (A364379).

Original entry on oeis.org

1, 2, 3, 8, 9, 42, 43, 84, 85, 2730, 2731, 5460, 5461, 21864, 21865, 59477, 60073, 66303, 75048, 112509, 156607, 174762, 174763, 283327, 312190, 320768, 349524, 349525, 351570, 354429, 374589, 384039, 479037, 504510, 527103, 624040, 625470, 656829, 688830, 711423
Offset: 1

Views

Author

Amiram Eldar, Jul 21 2023

Keywords

Crossrefs

Subsequence of A364379, A364380 and A364381.
A364383 is a subsequence.

Programs

  • Mathematica
    consecGreedyJN[72000, 4] (* using the function consecGreedyJN from A364380 *)
  • PARI
    lista(10^5, 4) \\ using the function lista from A364380
Showing 1-10 of 12 results. Next