OFFSET
1,1
COMMENTS
Primes prime(k) such that when any trailing zeros are removed from A349660(k), the result is prime.
LINKS
Robert Israel, Table of n, a(n) for n = 1..10000
EXAMPLE
a(3) = 709 is a term because 709 and 719 are consecutive primes, 709 + 719^2 = 517670, and 51767 is prime.
MAPLE
R:= NULL: count:= 0:
q:= 2:
while count < 100 do
p:= q; q:= nextprime(p);
v:= p+q^2;
if v mod 10 = 0 then v:= v/10^min(padic:-ordp(v, 2), padic:-ordp(v, 5)) fi;
if isprime(v) then count:= count+1; R:= R, p; fi;
od:
R;
MATHEMATICA
f[n_] := n/10^IntegerExponent[n, 10]; Select[Range[50000], PrimeQ[#] && PrimeQ[f[# + NextPrime[#]^2]] &] (* Amiram Eldar, Apr 07 2022 *)
CROSSREFS
KEYWORD
nonn
AUTHOR
J. M. Bergot and Robert Israel, Apr 05 2022
STATUS
approved