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-2 of 2 results.

A334345 Numbers k such that k and k+1 are both binary Moran numbers (A334344).

Original entry on oeis.org

115, 355, 1266, 1555, 1686, 1795, 4195, 4206, 4962, 5155, 5298, 6978, 9235, 10002, 11230, 13315, 18822, 21752, 22602, 23106, 26072, 29816, 40616, 42258, 60056, 60730, 64690, 68802, 83586, 87272, 91736, 94616, 100990, 107526, 108910, 109448, 113192, 121112, 125436
Offset: 1

Views

Author

Amiram Eldar, Apr 23 2020

Keywords

Examples

			115 is a term since 115/A000120(115) = 23 and 116/A000120(116) = 29 are both prime numbers.
		

Crossrefs

Subsequence of A330931 and A334344.

Programs

  • Maple
    q:= n-> (p-> is(p, integer) and isprime(p))(n/add(i, i=Bits[Split](n))):
    select(k-> q(k) and q(k+1), [$1..126000])[];  # Alois P. Heinz, Apr 23 2020
  • Mathematica
    binMoranQ[n_] := PrimeQ[n / DigitCount[n, 2, 1]]; Select[Range[10^5], binMoranQ[#] && binMoranQ[# + 1] &]

A334346 Starts of runs of 3 consecutive binary Moran numbers (A334344).

Original entry on oeis.org

126866286, 133542126, 148891086, 150959502, 173668302, 207567342, 227950542, 257154606, 263874222, 284421582, 295075566, 331190766, 373024206, 390589326, 392805486, 393817806, 395760366, 397921806, 441314766, 459700686, 459990702, 516188142, 527006286, 586869966
Offset: 1

Views

Author

Amiram Eldar, Apr 23 2020

Keywords

Examples

			126866286 is a term since 126866286/A000120(126866286) = 7048127, 126866287/A000120(126866287) = 6677173 and 126866288/A000120(126866288) = 7929143 are all prime numbers.
		

Crossrefs

Subsequence of A330932, A334344 and A334345.

Programs

  • Mathematica
    binMoranQ[n_] := PrimeQ[n / DigitCount[n, 2, 1]]; bin = binMoranQ /@ Range[3]; seq = {}; Do[If[And @@ bin, AppendTo[seq, k - 3]]; bin = Join[Rest[bin], {binMoranQ[k]}], {k, 4, 2 * 10^8}]; seq
Showing 1-2 of 2 results.