A100846
Concatenate (1,n,n,1).
Original entry on oeis.org
1001, 1111, 1221, 1331, 1441, 1551, 1661, 1771, 1881, 1991, 110101, 111111, 112121, 113131, 114141, 115151, 116161, 117171, 118181, 119191, 120201, 121211, 122221, 123231, 124241, 125251, 126261, 127271, 128281, 129291, 130301, 131311, 132321
Offset: 0
For n = 0, concatenate(1,n,n,1) is 1001 = a(0).
For n = 5, concatenate(1,n,n,1) is 1551 = a(5).
For n = 10, concatenate(1,n,n,1) is 110101 = a(10).
-
seq(seq((10^(2*d+1)+1+(10^(d+1)+10)*n), n=`if`(d>1,10^(d-1),0) .. 10^d-1),d=1..3);
# Robert Israel, Dec 30 2015, edited for n=0 by M. F. Hasler, Jun 25 2018
-
For[n = 0, n < 30, n++, l := Floor[Log[10, Min[n,1]] + 1]; gvout := (n*10^l + n)*10 + 1; m := Floor[Log[10, gvout]]; giveout := 10^(m + 1) + out; Print[giveout]] (* Stefan Steinerberger, Jan 27 2006, edited for n=0 by M. F. Hasler, Jun 25 2018 *)
-
A100846(n)=eval(Str(1,n,n,1)) \\ M. F. Hasler, Jun 22 2018
Definition reworded and missing 1001 added by
M. F. Hasler, Jun 22 2018
A102499
Primes of the concatenated form 3nn3.
Original entry on oeis.org
313133, 323233, 328283, 329293, 338383, 343433, 349493, 350503, 352523, 356563, 364643, 367673, 380803, 383833, 392923, 394943, 395953, 397973, 3100010003, 3100310033, 3102410243, 3102510253, 3102810283, 3103910393, 3104610463
Offset: 1
Mark Hudson (mrmarkhudson(AT)hotmail.com), Jan 13 2005
313133 is prime and of the form 3nn3 for n=13.
3100010003 is prime and of the form 3nn3 for n=1000.
Cf.
A102896 for sequence of all numbers of form 3nn3.
A102498 for the n values corresponding to the primes in this sequence.
-
mn[n_]:=Module[{idn=IntegerDigits[n]}, FromDigits[Join[{3},idn,idn,{3}]]]; Select[ mn/@ Range[ 1100],PrimeQ] (* Harvey P. Dale, Feb 04 2011 *)
A102504
Values of n for which the concatenations 1nn1, 3nn3, 7nn7 and 9nn9 are all primes.
Original entry on oeis.org
2092, 2131, 2797, 3433, 4126, 5524, 5710, 6817, 8383, 8815, 9472, 114613, 116329, 130213, 206776, 239389, 282298, 286642, 306046, 307180, 311317, 318310, 341386, 360733, 366529, 377005, 425665, 430597, 460441, 475642, 475660, 478078, 490870
Offset: 1
Mark Hudson (mrmarkhudson(AT)hotmail.com), Jan 13 2005
E.g. n=2092 leads to 1209220921, 3209220923, 7209220927 and 9209220929, all of which are primes.
For full sequences of integers of form 1nn1 (
A100846), 3nn3 (
A100896), 7nn7 (
A100897), 9nn9 (
A102484). For primes in these sequences: 1nn1 (
A102496,
A102497), 3nn3 (
A102498,
A102499), 7nn7 (
A102500,
A102501), 9nn9 (
A102502,
A102503).
-
foQ[n_, o_] := Block[{id = IntegerDigits[n]}, PrimeQ[ FromDigits[ Join[{o}, id, id, {o}] ]]]; Select[ Range[500985], foQ[ #, 1] && foQ[ #, 3] && foQ[ #, 7] && foQ[ #, 9] &] (* Robert G. Wilson v, Jan 14 2005 *)
Showing 1-3 of 3 results.