login
The OEIS Foundation is supported by donations from users of the OEIS and by a grant from the Simons Foundation.

 

Logo


Hints
(Greetings from The On-Line Encyclopedia of Integer Sequences!)
A069246 Primes which yield a prime whenever a 1 is inserted anywhere in them (including at the beginning or end). 27

%I

%S 3,7,13,31,103,109,151,181,193,367,571,601,613,811,1117,1831,4519,

%T 6871,11119,11317,11467,13171,16141,17167,18211,18457,27241,38917,

%U 55381,71317,81199,81931,86743,114031,139861,141667,151687,179203,200191

%N Primes which yield a prime whenever a 1 is inserted anywhere in them (including at the beginning or end).

%H Giovanni Resta, <a href="/A069246/b069246.txt">Table of n, a(n) for n = 1..270</a> (terms 1..77 from Vincenzo Librandi, terms 78..145 from Zak Seidov)

%e 86743 is prime and so are 867431, 867413, 867143, 861743, 816743, 186743. - _Paolo P. Lava_, Aug 10 2012

%t d[n_]:=IntegerDigits[n]; ins[n_]:=FromDigits/@Table[Insert[d[n],1,k],{k,Length[d[n]]+1}]; Select[Prime[Range[20000]],And@@PrimeQ/@ins[#] &] (* _Jayanta Basu_, May 20 2013 *)

%o (MAGMA) [p: p in PrimesUpTo(210000) | forall{m: t in [0..#Intseq(p)] | IsPrime(m) where m is (Floor(p/10^t)*10+1)*10^t+p mod 10^t}]; // _Bruno Berselli_, Sep 03 2012

%Y Prime subsequence of A068679.

%Y Cf. A215417, A215419 - A215421.

%K nonn,easy,base

%O 1,1

%A _N. J. A. Sloane_, Apr 14 2002

%E More terms from _Vladeta Jovovic_, Apr 16 2002

Lookup | Welcome | Wiki | Register | Music | Plot 2 | Demos | Index | Browse | More | WebCam
Contribute new seq. or comment | Format | Style Sheet | Transforms | Superseeker | Recent
The OEIS Community | Maintained by The OEIS Foundation Inc.

License Agreements, Terms of Use, Privacy Policy. .

Last modified February 18 04:48 EST 2020. Contains 332011 sequences. (Running on oeis4.)