A334346 -id:A334346 - cp's OEIS frontend

A334371 Starts of runs of 3 consecutive Moran numbers (A001101).

3031, 13116, 46824, 201614, 456325, 1310412, 1499434, 1825225, 2217620, 2318423, 2522540, 2784634, 3132380, 3276024, 3931226, 4013113, 4555476, 5017340, 5211380, 6309602, 6338910, 6526835, 7197154, 8678920, 9108023, 9258002, 10256420, 10533620, 10614266, 10810824

Offset: 1

Amiram Eldar, Apr 25 2020

			3031 is a term since 3031/(3+0+3+1) = 433, 3032/(3+0+3+2) = 379 and 3033/(3+0+3+3) = 337 are all primes.

Amiram Eldar, Table of n, a(n) for n = 1..10000

Subsequence of A001101, A085775 and A154701.

Cf. A235397, A334346.

moranQ[n_] := PrimeQ[n / Plus @@ IntegerDigits[n]]; m = moranQ /@ Range[3]; seq = {}; Do[If[And @@ m, AppendTo[seq, k - 3]]; m = Join[Rest[m], {moranQ[k]}], {k, 4, 10^6}]; seq

A338515 Starts of runs of 3 consecutive numbers that are divisible by the total binary weight of their divisors (A093653).

Original entry on oeis.org

1, 348515, 8612344, 29638764, 30625110, 32039808, 32130600, 32481682, 43664313, 55318282, 55503719, 59671714, 69254000, 73152296, 93470904, 100366594, 103640097, 105026790, 109038462, 109212287, 122519464, 126667271, 147208982, 162007166, 169237545, 173392238

Offset: 1

Amiram Eldar, Oct 31 2020

			1 is a term since 1, 2 and 3 are terms of A093705.

Amiram Eldar, Table of n, a(n) for n = 1..5000

Subsequence of A338514.
Cf. A000120, A093653, A093705.
Similar sequences: A154701, A330932, A334346, A338453.

divQ[n_] := Divisible[n, DivisorSum[n, DigitCount[#, 2, 1] &]]; div = divQ /@ Range[3]; Reap[Do[If[And @@ div, Sow[k - 3]]; div = Join[Rest[div], {divQ[k]}], {k, 4, 10^7}]][[2, 1]]

cp's OEIS Frontend

A334371 Starts of runs of 3 consecutive Moran numbers (A001101).

Views

Author

Keywords

Examples

Links

Crossrefs

Programs

Mathematica