Year-end appeal: Please make a donation to the OEIS Foundation to support ongoing development and maintenance of the OEIS. We are now in our 61st year, we have over 378,000 sequences, and we’ve reached 11,000 citations (which often say “discovered thanks to the OEIS”).
%I #13 Jan 22 2018 03:01:45
%S 20202,20203,20205,20207,20211,20213,20217,20219,20223,20229,20231,
%T 20237,20241,20243,20247,20253,20259,20302,20303,20305,20307,20311,
%U 20313,20317,20319,20323,20329,20331,20337,20341,20343,20347,20353,20359,20502,20503
%N Prime time numbers on 6-digit clocks: numbers of the form HMMSS where H, MM, SS are primes, H < 24, MM and SS < 60.
%C The primes in this sequence form the subsequence A295013, a variant and subsequence of A229106, where only the concatenation HMMSS but not the individual digit groups are required to be primes. See also A050246 and A159911 for 4-digit clock variants.
%C See A295011 for the subsequence of terms for which the number of seconds after midnight (3600*H + 60*MM + SS, given in A295004) is prime, and A295000 for the subsequence of primes therein.
%H M. F. Hasler, <a href="/A295014/b295014.txt">Table of n, a(n) for n = 1..2601</a> (complete sequence).
%t With[{s = Prime@ Range@ PrimePi@ 60}, FromDigits@ Flatten[PadLeft[IntegerDigits[#], 2] & /@ #] & /@ Tuples@ {TakeWhile[s, # < 24 &], s, s}] (* _Michael De Vlieger_, Jan 21 2018 *)
%o (PARI) is_A295014(n)=apply(isprime,digits(n,100))==[1,1,1]&&n<24e4
%o A295014 = select( is_A295014, [20000,240000])
%o /* alternatively */ A295014=List(); forprime(h=0,24,forprime(m=0,60,forprime(s=0,60,listput(A295014,(h*100+m)*100+s))))
%Y Cf. A295013, A050246, A159911, A229106.
%K nonn,base,fini,full
%O 1,1
%A _M. F. Hasler_, Jan 09 2018