A174355 -id:A174355 - cp's OEIS frontend

A174441 Primes p such that the concatenations p//1331 and 1331//p are both prime numbers (for naturals see A174355).

53, 347, 431, 641, 647, 821, 1709, 1973, 2081, 2591, 2657, 2963, 4073, 4139, 4643, 4787, 5039, 5483, 5657, 6029, 6791, 6917, 6959, 7127, 7673, 8273, 8693, 8807, 8849, 9221, 9311, 9689, 10139, 10457, 11423, 12503, 12743, 13619, 13913, 14549

Offset: 1

Eva-Maria Zschorn (e-m.zschorn(AT)zaschendorf.km3.de), Mar 20 2010

See comments and references for A173836, A174213.

			531331 = prime(43928), 133153 = prime(12427) => p(1) = 53 = prime(16).
3471331 = prime(248286), 1331347 = prime(102237) => p(2) = 347 = prime(69).
139131331 = prime(7865788), 133113913 = prime(7544750) => p(39) = 13913 = prime(1645).

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Cf. A168327, A168417, A173836, A174213, A174260, A174355.

Select[Prime[Range[2000]],AllTrue[{#*10^4+1331,1331*10^IntegerLength[ #]+#}, PrimeQ]&] (* The program uses the AllTrue function from Mathematica version 10 *) (* Harvey P. Dale, May 08 2016 *)

isok(n) = isprime(n) && isprime(n*10^4 + 1331) && isprime(1331*10^(length(Str(n))) + n); \\ Michel Marcus, Aug 27 2013

A176600 Numbers n such that concatenations n//13 and n//31 are consecutive primes.

Original entry on oeis.org

19, 190, 250, 346, 378, 400, 402, 456, 516, 553, 567, 586, 664, 759, 762, 853, 931, 972, 1140, 1156, 1161, 1242, 1266, 1284, 1314, 1317, 1338, 1398, 1440, 1645, 1744, 1785, 1840, 1875, 1930, 1944, 2227, 2248, 2271, 2287, 2316, 2397, 2401, 2467, 2568, 2602

Offset: 1

Eva-Maria Zschorn (e-m.zschorn(AT)zaschendorf.km3.de), Apr 21 2010

p = n//13 = n * 10^2 + 13 = prime(i) , q = n//31 = n * 10^2 + 31 = prime(i+1)
p and q are formed by the same digits (counted with multiplicity)
n = m//k (k = 0, 1, ...,9)
List of m < 10^3
0//13: 19, 25, 40, 114, 144, 184, 193, 280, 411, 415, 567, 604, 634, 777, 852, 862, 870, 943 (18)
1//13: 93, 116, 227, 240, 392, 462, 543, 570, 611, 675, 689, 734, 759, 821, 822, 878, 969, 986 (18)
2//13: 40, 76, 97, 124, 260, 338, 365, 415, 505, 545, 599, 625, 788, 809 (14)
3//13: 55, 85, 312, 349, 421, 424, 451, 454, 619, 622, 724, 928 (12)
4//13: 66, 128, 131, 174, 194, 293, 345, 414, 657, 687, 702, 741, 752, 867, 870, 939 (16)
5//13: 164, 178, 187, 277, 379, 416, 481, 536, 754, 824, 935, 974, 995 (13)
6//13: 34, 45, 51, 58, 115, 126, 231, 336, 402, 432, 439, 489, 502, 541, 705, 780, 838, 850, 909, 985 (20)
7//13: 56, 131, 222, 228, 239, 246, 309, 480, 530, 716, 732, 747, 761, 792, 831, 936, 981 (17)
8//13: 37, 133, 139, 224, 256, 286, 301, 304, 497, 518, 550, 559, 562, 728, 856, 907 (16)
9//13: 1, 75, 526, 558, 681, 720, 765, 916, 943 (9)
The sequence could be defined as "Numbers n such that 100n+13 and 100n+31 are consecutive primes". In that sense it could be considered to be independent of the decimal numeral system. - M. F. Hasler, Dec 04 2010

			19//13 = 1913 = prime(293), 19//31 = 1931 = prime(294), 19 is 1st term
190//13 = 19013 = prime(2161), 190//31 = 19031 = prime(2162), 190 is 2nd term

Cf. A168327, A168417, A173836, A174213, A174260, A174355, A174441.

Select[Range[3000],PrimeQ[# 100+13]&&NextPrime[# 100+13]==# 100+31&] (* Harvey P. Dale, Jun 23 2022 *)

A176600(n,print_all=0)={ for(k=1,1e9,isprime(100*k+13) || next;nextprime(100*k+17)==100*k+31||next;print_all & print1(k",");n-- || return(k))} \\ M. F. Hasler, Dec 04 2010

A176601 Primes p that p//13 and p//31 are consecutive primes.

Original entry on oeis.org

19, 853, 2287, 2467, 4243, 4513, 4621, 5431, 5701, 7243, 7477, 7591, 7927, 8221, 8317, 9283, 9439, 9817, 10039, 12781, 13933, 14461, 14923, 15727, 16693, 17443, 18199, 18217, 19207, 20749, 21139, 22147, 23761, 25471, 26701, 26953, 27481, 28111, 28447, 28579

Offset: 1

Eva-Maria Zschorn (e-m.zschorn(AT)zaschendorf.km3.de), Apr 21 2010

See A176600.

			19//13 = 1913 = prime(293), 19//31 = 1931 = prime(294), 19 = prime(8) is 1st term.
853//13 = 85313 = prime(8306), 853//31 = 85331 = prime(8307), 853 = prime(147) is 2nd term.

Harvey P. Dale, Table of n, a(n) for n = 1..2000

Cf. A168327, A168417, A173836, A174213, A174260, A174355, A174441, A176600.

okQ[n_]:=Module[{idn=IntegerDigits[n],p13,p31},p13=FromDigits[ Join[ idn,{1,3}]];p31=FromDigits[Join[idn,{3,1}]];PrimeQ[p13]&&NextPrime[p13] == p31]; Select[Prime[Range[16000]],okQ] (* Harvey P. Dale, Jan 21 2012 *)

More terms from Harvey P. Dale, Jan 21 2012

A174409 Prime numbers p such that the concatenation p^3//1331 is a prime number.

Original entry on oeis.org

2, 107, 137, 167, 257, 269, 311, 317, 557, 593, 761, 773, 809, 911, 1103, 1151, 1283, 1289, 1481, 1487, 1559, 1709, 1787, 1931, 2111, 2141, 2243, 2339, 2357, 2657, 2687, 2777, 2909, 3137, 3209, 3251, 3359, 3371, 3389, 3449

Offset: 1

Eva-Maria Zschorn (e-m.zschorn(AT)zaschendorf.km3.de), Mar 19 2010

See comments at A174213.
p^3//1331 is the concatenation of the cubes of two primes.
With the exception of a(1)=2, each term is necessarily of the form 6*k-1.

			The first prime is 2; 2^3 = 8, and 81331 = prime(7958), so a(1)=2.
The smallest prime p > 2 such that p^3//1331 yields a prime is p=107: 107^3 = 1225043, and 12250431331 = prime(552342812), so a(2)=107.

Harvey P. Dale, Table of n, a(n) for n = 1..1000

Cf. A168327, A168417, A173836, A174213, A174260, A174229, A174355.

[p: p in PrimesUpTo(5000) | IsPrime(Seqint(Intseq(1331) cat Intseq(p^3)))]; // Vincenzo Librandi, Mar 05 2018

Select[Prime[Range[500]],PrimeQ[10000#^3+1331]&] (* Harvey P. Dale, May 30 2017 *)

cp's OEIS Frontend

A174441 Primes p such that the concatenations p//1331 and 1331//p are both prime numbers (for naturals see A174355).

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

PARI

A176600 Numbers n such that concatenations n//13 and n//31 are consecutive primes.

Views

Author

Keywords

Comments

Examples

Crossrefs

Programs

Mathematica

PARI

A176601 Primes p that p//13 and p//31 are consecutive primes.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Mathematica

Extensions

A174409 Prime numbers p such that the concatenation p^3//1331 is a prime number.

Views

Author

Keywords

Comments

Examples

Links

Crossrefs

Programs

Magma

Mathematica