OFFSET
1,1
COMMENTS
FORMULA
prime(a(n)) = A061368(n).
MATHEMATICA
Select[Range[100], Prime[#]+2==Prime[#+1]&&!SquareFreeQ[Prime[#]+1]&]
CROSSREFS
A subset of A029707 (twin prime lesser indices).
Prime indices of the primes listed by A061368.
Indices of twin primes with squarefree mean are A068361.
A006562 finds balanced primes.
A038664 finds the first position of a prime gap of 2n.
A046933 counts composite numbers between primes.
A120327 gives the least nonsquarefree number >= n.
KEYWORD
nonn,new
AUTHOR
Gus Wiseman, Dec 10 2024
STATUS
approved