OFFSET
1,1
COMMENTS
Warning: do not confuse with A377783.
EXAMPLE
The terms together with their prime indices begin:
4: {1,1}
8: {1,1,1}
32: {1,1,1,1,1}
44: {1,1,5}
104: {1,1,1,6}
140: {1,1,3,4}
284: {1,1,20}
464: {1,1,1,1,10}
572: {1,1,5,6}
620: {1,1,3,11}
644: {1,1,4,9}
824: {1,1,1,27}
860: {1,1,3,14}
1232: {1,1,1,1,4,5}
MATHEMATICA
y=Table[NestWhile[#+1&, Prime[n], SquareFreeQ[#]&], {n, 1000}];
Select[Union[y], Count[y, #]==2&]
CROSSREFS
KEYWORD
nonn
AUTHOR
Gus Wiseman, Nov 23 2024
STATUS
approved