OFFSET
1,1
COMMENTS
The primes are considered in increasing order. Primes with the same number of digits, the difference between adjacent terms seems to be a multiple of 3.
LINKS
K. D. Bajpai, Table of n, a(n) for n = 1..10000
Chris Caldwell, The First 10,000 Primes
EXAMPLE
5479 is a prime obtained by prefixing a 5 to the prime 479.
MAPLE
A165555:= n-> (parse(cat(5, ithprime(n)))): select(isprime, [seq((A165555(n), n=1..1000))]); # K. D. Bajpai, Jul 14 2017
MATHEMATICA
Select[Table[FromDigits[Join[IntegerDigits[5], IntegerDigits[Prime[n]]]], {n, 500}], PrimeQ] (*K. D. Bajpai, Jul 14 2017 *)
Select[5*10^IntegerLength[#]+#&/@Prime[Range[200]], PrimeQ] (* Harvey P. Dale, Sep 29 2024 *)
PROG
(Magma)[k : p in PrimesUpTo (2000) | IsPrime (k) where k is Seqint (Intseq (p) cat Intseq (5))]; // K. D. Bajpai, Jul 14 2017
(PARI) lista(nn) = forprime(p=2, nn, if (isprime(q=eval(concat(5, Str(p)))), print1(q, ", "))); \\ Michel Marcus, Jul 29 2017
CROSSREFS
KEYWORD
base,nonn
AUTHOR
Parthasarathy Nambi, Sep 21 2009
EXTENSIONS
More terms from Vincenzo Librandi, Dec 02 2010
Missing term 5449 inserted by K. D. Bajpai, Jul 14 2017
STATUS
approved