|
%I #16 Jan 23 2018 07:35:13
%S 7322,7323,7325,7327,7331,7333,7337,7339,7343,7349,7351,7357,7361,
%T 7363,7367,7373,7379,7382,7383,7385,7387,7391,7393,7397,7399,7403,
%U 7409,7411,7417,7421,7423,7427,7433,7439,7502,7503,7505,7507,7511,7513,7517,7519,7523
%N The number of seconds after midnight (3600*H + 60*MM + SS) corresponding to prime time numbers A295014, i.e., numbers of the form HMMSS with primes H < 24 and MM, SS < 60.
%C See A295003 for the subsequence of terms which correspond to "prime time primes" (cf. A295013), and A295002 for the primes among these.
%C This is to A295014 what is A295003 to A295013, or what is A118848 to A050246, or what is A118850 to A118849.
%H M. F. Hasler, <a href="/A295004/b295004.txt">Table of n, a(n) for n = 1..2601</a> (complete sequence).
%F a(n) = A292579(A295014(n))
%t With[{s = Prime@ Range@ PrimePi@ 60}, NumberCompose[{#1, #2, #3}, {3600, 60, 1}] & @@ # & /@ Tuples@ {TakeWhile[s, # < 24 &], s, s}] (* _Michael De Vlieger_, Jan 21 2018 *)
%o (PARI) apply( A292579, A295014) \\ convert prime time numbers to seconds
%Y Cf. A295014, A295003, A295013, A295011, A295002, A295000; A050246, A159911, A229106; A118848, A118849, A118850.
%K nonn,base,fini,full
%O 1,1
%A _M. F. Hasler_, Jan 15 2018
|
