A242824
Primes formed by the initial digits of the decimal expansion of 1/7, starting at the first nonzero digit in the expansion.
Original entry on oeis.org
1428571, 1428571428571428571428571
Offset: 1
-
Select[Table[FromDigits[PadRight[{},6n+1,{1,4,2,8,5,7}]],{n,200}],PrimeQ](* Harvey P. Dale, Oct 03 2018 *)
A242833
Primes formed by the initial digits of the decimal expansion of 1/19, starting at the first nonzero digit in the expansion.
Original entry on oeis.org
5, 52631, 5263157894736842105263157, 52631578947368421052631578947368421052631578947368421052631
Offset: 1
-
lista(nn) = {v = [5,2,6,3,1,5,7,8,9,4,7,3,6,8,4,2,1,0]; n = 0; for (i=0, nn, n = 10*n+ v[(i % 18)+1]; if (ispseudoprime(n), print1(n, ", ")););} \\ Michel Marcus, May 27 2014
A242826
Primes formed by the initial digits of the decimal expansion of 1/13, starting at the first nonzero digit in the expansion.
Original entry on oeis.org
7, 769, 769230769, 769230769230769230769, 769230769230769230769230769230769
Offset: 1
A242827
Primes formed by the initial digits of the decimal expansion of 1/14, starting at the first nonzero digit in the expansion.
Original entry on oeis.org
7, 71, 71428571, 7142857142857, 7142857142857142857142857142857
Offset: 1
-
lista(nn) = {v = [7,1,4,2,8,5]; n = 0; for (i=0, nn, n = 10*n+ v[(i % 6)+1]; if (ispseudoprime(n), print1(n, ", ")););} \\ Michel Marcus, May 26 2014
Showing 1-4 of 4 results.
Comments