%I #14 Jan 15 2020 17:39:31
%S 4,9,25,49,169,361,841,1369,1849,2209,3721,5041,7921,10609,11449,
%T 16129,17161,19321,29929,36481,44521,49729,54289,57121,66049,85849,
%U 97969,113569,128881,177241,196249,201601,218089,241081,273529,292681,323761
%N Numbers k of the form q^2, q = prime, such that k-2 is a prime.
%C Except for initial term, a(n) - 1 is not a squarefree number.
%H Amiram Eldar, <a href="/A146981/b146981.txt">Table of n, a(n) for n = 1..10000</a>
%F a(n) = A049002(n) + 2.
%F a(n) = A062326(n)^2. - _Amiram Eldar_, Oct 21 2019
%t Select[Prime[Range[150]]^2,PrimeQ[#-2]&] (* _Harvey P. Dale_, Jan 15 2020 *)
%Y Cf. A049002, A062326.
%K nonn
%O 1,1
%A _Giovanni Teofilatto_, Nov 04 2008
%E Corrected (3721 inserted, 10321 replaced by 19321, 49729 and 218089 inserted) by _R. J. Mathar_, Apr 22 2010