OFFSET
1,1
LINKS
Marius A. Burtea, Table of n, a(n) for n = 1..545
EXAMPLE
14 is in the sequence because 14^2 = 196; deleting the last digit gives 19 which is prime.
26 is in the sequence because 26^2 = 676; deleting the last digit gives 67 which is prime.
MAPLE
select(n -> isprime(floor(n^2/10)), [$1..2000]);
MATHEMATICA
fQ[n_] := PrimeQ@Quotient[n^2, 10]; Select[Range[1, 2000], fQ]
PROG
(Magma) [n : n in [1 .. 2000] | IsPrime (Floor (n^2/10))];
(PARI) isok(n) = isprime(n^2\10); \\ Michel Marcus, Jul 02 2017
CROSSREFS
KEYWORD
nonn,base
AUTHOR
K. D. Bajpai, Jun 27 2017
STATUS
approved