A141408 - OEIS

%I #15 Jul 09 2020 06:05:47

%S 5,13,37,41,61,73,101,157,173,193,257,277,353,373,433,457,461,541,601,

%T 613,641,653,677,733,821,853,857,877,941,977,1033,1117,1181,1217,1297,

%U 1301,1321,1361,1433,1453,1481,1553,1613,1621,1657,1741,1753,1777,1873,1901,1973,1993

%N Primes p = A007947(m) such that p+6 is also prime and p + 1 = A007947(m + 1).

%C a(n)==1 (mod 4).

%H Jinyuan Wang, <a href="/A141408/b141408.txt">Table of n, a(n) for n = 1..5000</a>

%o (PARI) rad(n) = factorback(factorint(n)[, 1]); \\ A007947

%o lista(nn) = {for (n=1, nn, my(p=rad(n)); if (isprime(p) && isprime(p+6) && (p+1==rad(n+1)), print1(p, ", ")););} \\ _Michel Marcus_, Aug 22 2019

%Y Cf. A007947, A081083.

%K nonn

%O 1,1

%A _Giovanni Teofilatto_, Aug 04 2008

%E Definition clarified, more terms appended by _R. J. Mathar_, Aug 23 2010

%E A-number typo in definition corrected by _R. J. Mathar_, Aug 30 2010

%E More terms from _Michel Marcus_, Aug 22 2019