OFFSET
1,1
COMMENTS
Subsequence of A027862 associated with the values of A027861 that are multiples of 5. [R. J. Mathar, Jan 12 2009]
LINKS
Vincenzo Librandi, Table of n, a(n) for n = 1..1000
MAPLE
select(isprime, [50*n^2+10*n+1$n=1..100])[]; # Muniru A Asiru, Apr 25 2019
MATHEMATICA
Select[Table[50n^2+10n+1, {n, 0, 200}], PrimeQ] (* Vincenzo Librandi, Jul 23 2012 *)
PROG
(Magma) [a: n in [0..100] | IsPrime(a) where a is 50*n^2 + 10*n + 1]; // Vincenzo Librandi, Jul 23 2012
(PARI) for (n=0, 100, if (isprime (k=50*n^2+10*n+1), print1 (k, ", "))); \\ Vincenzo Librandi, Jul 23 2012
(GAP) Filtered(List([1..100], n->50*n^2+10*n+1), IsPrime); # Muniru A Asiru, Apr 25 2019
CROSSREFS
KEYWORD
nonn,easy
AUTHOR
Vincenzo Librandi, Jan 09 2009
EXTENSIONS
Replaced 13721 by 135721 - R. J. Mathar, Jan 12 2009
STATUS
approved